Farbige Mrkierung nicht ausdrucken

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
Dim Bereich As Range
Set Bereich = Range("B6:AF42")
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Bereich, Target) Is Nothing Then
With Target
Application.EnableEvents = False
Bereich.Interior.Color = xlNone  'alte Farbe zurücksetzen
Union(Intersect(Rows(.Row), Bereich), Intersect(Columns(.Column), Bereich)).Interior.Color = RGB(215, 251, 197)
Application.EnableEvents = True
End With
End If
ActiveSheet.Protect
End Sub