Here you go:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Worksheets("sheet1").Range("f3").Value = "" Then
Exit Sub
Else
MsgBox ("An entry has been made")
End If
End Sub
Audiojoe
This message was edited by Audiojoe on 2002-04-24 02:42