Makro läuft nur wenn kein Blattschutz

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
Cancel = True
If Target = "" Then
Select Case Target.Column
Case 3
Target = "Urlaub"
Target.Font.Color = -16776961
'                    Target.Offset(0, 6) = CDate("1:58")
End Select
Else
Target = ""
'            Target.Offset(0, 6).ClearContents
Target.Font.ColorIndex = xlAutomatic
End If
End If
End Sub