Zellen einfärben und Einfärbung wieder löschen

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Einfärben der Zellen nach Eingabe einer bestimmten Zahl auf alle Tabellenblätter
Select Case Target
'Zahl 1 = 08.00-12.00 und 13.00-17.30 Uhr
Case 1
Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 'füllt Zellen H – W mit  _
roter Farbe
Range(Target.Offset(0, 26), Target.Offset(, 43)).Interior.ColorIndex = 3 'füllt Zellen AB – AU  _
mit roter Farbe
'Zahl 2 = 08.30-12.30 und 13.30-18.00 Uhr
Case 2
Range(Target.Offset(0, 8), Target.Offset(, 23)).Interior.ColorIndex = 3 'füllt Zellen J – Y mit  _
roter Farbe
Range(Target.Offset(0, 28), Target.Offset(, 45)).Interior.ColorIndex = 3 'füllt Zellen AD – AU  _
mit roter Farbe
'Zahl 3 = 09.30-13.00 und 14.00-19.00 Uhr
Case 3
Range(Target.Offset(0, 12), Target.Offset(, 25)).Interior.ColorIndex = 3 'füllt Zellen N – AA  _
mit roter Farbe
Range(Target.Offset(0, 30), Target.Offset(, 49)).Interior.ColorIndex = 3 'füllt Zellen AF – AY  _
mit roter Farbe
End Select
End Sub