怎么改变工作簿中所有工作表中A1单元格的颜色?

wisdom100

Private Sub CommandButton1_Click()
Dim sht As Worksheet
Dim mySheet As String
On Error Resume Next
For Each sht In Worksheets
   Sheets(sht).Range("a1").Select
   Selection.Font.ColorIndex = 3
Next sht
End Sub

不知道为什么不行,只是第一个SHEET1才可以,求高手修正~~~

okanyway

Private Sub CommandButton1_Click()
Dim sht As Worksheet
Dim mySheet As String
On Error Resume Next
For Each sht In Worksheets
    Sht.activate
    Range("a1").Select
   Selection.Font.ColorIndex = 3
Next sht
End Sub