Schriftart in Zeilen wechselweise fett/nicht-fett formatieren

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

100200    074699

Problem: Wie kann ich in zwei Zeilen wechselweise den Schrifttyp "fett" wechseln?

StandardModule: basMain

Sub ToggleBold()
   With Worksheets(1)
      With Rows(1)
         .Font.Bold = Not .Font.Bold
         .Rows(2).Font.Bold = Not .Font.Bold
      End With
   End With
End Sub