Macro Question

  • Thread starter Thread starter xxx
  • Start date Start date
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.
 
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
(e-mail address removed)
 
Back
Top