VBA code message box dilemma......

[mattbird]

Hi,

How can I make the following code return the message "Now click on Update Stats" if a date is entered into the cell and if a wrong entry is entered i.e. texted, another message will be displayed saying "Incorrect entry, please re-enter the assessment date".

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("R15:R33")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
MsgBox "Now click on Update Stats."

End Sub

Thanks

Matt

 

[mattbird]

Thanks,

Use labels works perfect.

Matt