Tabellenreiter farbig von Tina
09.04.2005 21:29:41
Tina
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim m As Variant
m = Month(Now)
For Each wks In Worksheets
If wks.name = m Then
wks.Tab.ColorIndex = 3
Else
wks.Tab.ColorIndex = 36
End If
Next
End Sub
Hier muß bestimmt der Name der Arbeitsmappe rein?
MfG Jürgen