Soru Makro Hatası

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'Get out of edit mode
If LCase(Target.Font.Name) <> "wingdings 2" Then Exit Sub
If Len(Target.Value) > 1 Then Exit Sub
Target.Offset(0, 30) = Target.Offset(0, -29)

If Trim(Target.Value) = "" Then
Target.Value = "P"
Else
Target.Value = ""
End If
End Sub

Es Selamün Aleyküm.
Yukarıda ki kod içinde yer alan renkli kısım hata veriyor. Rica etsem düzeltilmiş hali için yardımcı olabilir misiniz?