Brauche Hilfe bei meinem Code: WorkSheet Change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intLastCell As Integer
Dim blnChange As Boolean
Dim strEmailMsg As String
If blnGodMode = False Then
blnChange = True
End If
If blnChange = True Then
intLastCell = Me.Cells(Me.Rows.Count, 2).End(xlUp).Row
If Not Application.Intersect(Target, Range("B6:R" & intLastCell)) Is Nothing Then
If Target.Value = "" Then
strEmailMsg = "Alert: " & Chr(10) & _
Now() & Chr(10) & _
"Unerlaubter Versuch einer Löschung im Tabellenblatt CONTRACTS: " &  _
Target.Address(False, False) & " " & Target.Value & Chr(10) & _
"User: " & Application.UserName
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Call CreateEMail(Range("A1"), False, strEmailMsg)
End If
End If
End If
End Sub