Laufzeitfehler 13

Private Sub Workbook_Activate()
If ActiveSheet.Name And BoZustand = False Then ersteFarbe  ' Blinken einschalten
End Sub
Private Sub Workbook_Deactivate()
If ActiveSheet.Name Then Ende                              ' Blinken abschalten
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = Name And BoZustand = False Then ersteFarbe           ' Blinken einschalten
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name = Name Then Ende                                       ' Blinken abschalten
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Name = Name And BoZustand = False Then Ende        ' Blinken abschalten
End Sub

Beim Debuggen bleib ich hier stehen:

If ActiveSheet.Name And BoZustand = False Then ersteFarbe  ' Blinken einschalten

Wie kann ich das beheben, ohne expizit einen festen Namen für Worksheet zu vergeben, da diese fortlaufend ständig anders sind.
Für Tips oder hinweise bin dankbar.
MfG
Daniela