Macro Question

X

xxx

Private Sub N17_SelectionChange(ByVal Target As Range)
If Worksheets("Imperial Form").Range("N17") = " " Then
MsgBox "No need to calculate the customer's upcharge (this is done
automatically), but you will need to do the necessaey panel
additions/deletions yourself"
End If
End Sub


I need to know what to put in between the " " marks. i Want the
message box to appear no matter what value (or text) is entered in
N17. So, I need to know what the symbol (or whatever) is for "any"
value.

Thanks.
 
N

Nick Hodge

The below code will work

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("N17")) Is Nothing Then
MsgBox "No need to calculate the customer's upcharge (this is done
automatically), but you will need to do the necessaey panel
additions/deletions yourself"
End If
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
[email protected]
 
Top