vba学习备忘002——for

Dim rng As Range
Dim n As Single
For Each rng In Sheet1.Range("a2:a10")
    If rng = "A1" Then rng.Interior.ColorIndex = 3
Next
End Sub

Dim wsh As Worksheet
Dim n As Byte
Dim m As String
For Each wsh In Worksheets
    n = n + 1
    m = wsh.Name
    Sheet1.Cells(n, 3) = m
Next