How do i get this macro not to run if target is empty or 0

[tonywatsonhelp]

Hi Everyone,

I have this macro that works great but I need it not t run if the cell I secect is zero or empty.
how can I do this/

p.s. if my code can be improved feel free to go ahead and change it
(Columns E & F are merged per row so E88:F88 etc.)
Thanks

Tony

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]If Selection.Count = 2 Then
If Not Intersect(Target, Range("$E$88:$F$91")) Is Nothing Then
If Range("$E$93") = 1 Then
Call Yes_No_Message_Goals_4
End If
End If
End If[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]End Sub[/FONT]

 

[FormR]

How about this small addition..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 2 Then
    If Not Intersect(Target, Range("$E$88:$F$91")) Is Nothing Then
        If Target.Cells(1, 1).Value > 0 Then
            If Range("$E$93") = 1 Then
                Call Yes_No_Message_Goals_4
            End If
        End If
    End If
End If
End Sub

 

[tonywatsonhelp]

I am laughing my head off, I must have tried everything but this FormR, and it worked perfectly,

Thanks
for your help

Tony