Getting an Error on a Pop Up Box

[mrjrobinson]

Hi All,

I have created a Pop Up Box when a field contains a phrase, but whenever the cell its looking at is blank I get a "Run-time error '13': Type mismatch.

My code I have used is:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)


If Worksheets("Member Tracker").Range("E3").Value = "Pay As You Go" Then
MsgBox ("Customer has to pay before entry")
End If
End Sub

Im guessing I need to add in something to say do nothing if the cell is blank, but stumped as to what to put. Any help with this is really appreciated.

Many thanks

 

[Fluff]

Nope, just change that line in the original code I supplied.

 

[mrjrobinson]

Nope, just change that line in the original code I supplied.

Great Stuff! All working now. Thank you for your help!

 

[Fluff]

Glad to help & thanks for the feedback