Wie wende ich Boolean an

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bLoe As Boolean
Select Case Target.Column
Case 3
If Target.Row  "" Then
Range(Cells(Target.Row + 2, 5), Cells(Target.Row + 10, 6)).Clear
End If
Cells(Target.Row - 1, 5).Copy _
Cells(Target.Row, 5)
Application.CutCopyMode = False
Fehler:
Application.EnableEvents = True
Case 5
If Target.Row 'Wenn ich das clear ausführe dann hä _
ngt sich die MsgBox auf
Target.Cells.Offset(0, -1).Activate
End If
Case 7
If Target.Row 'Wenn ich das clear ausführe dann hängt  _
sich die MsgBox auf
Target.Cells.Offset(0, 1).Activate
End If
End Select
0 End Sub