Danke
Hab vorhin noch eine andere Möglichkeit gefunden, bevor ich deine Antwort gelesen habe.
Die wie folgt aussieht:
Sub Makro1()
'
' Makro1 Makro
'
'
Range("B3:B200,C3:C600").Select
Range("B3:B200,C3:C600").Activate
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Range("D5").Select
End Sub