Button Click

[Pinaceous]

Hi All,

I have a Button Click of which populates a date into cell D3, listed below.

Sub AddDateStamp()
         
        Application.EnableEvents = False
                                
        Sheet1.Range("D3") = Format(Now(), "mm-dd")
                
        Application.EnableEvents = True
       
       
End Sub

Now my ? is, is there any way I can add to this code:

'If cell D3 is already entered' Then 'Exit Sub' With Msgbox 'Already done!'

I've been trying different variations & can use a little bit of help!

Thanks!

 

[Michael M]

Try
Also, if the if the sheet doesn't have event macro, the enableevents lines aren't needed

Sub AddDateStamp()
  If Sheet1.Range("D3") <> "" Then
    MsgBox "Already Done ! "
    Exit Sub
 End If
Application.EnableEvents = False
Sheet1.Range("D3") = Format(Now(), "mm-dd")
Application.EnableEvents = True
End Sub