msg box pops up when button is clicked in certain cell

[apicsofcake]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheet("Sheet1").Range("A:AE").NumberFormat = "dd/mmm/yy hh:mm AM/PM" Then
If timeStamp_Click = True Then
MsgBox "are you sure?"
End If
End Sub

//I want to fulfill two conditions,

First, when the cell within range A:AE, any of them is filled with timestamp

Then, when user clicks on timeStamp button, msg pops up

I don't know why the above codes don't work

Can somebody help with this?

 

[AC PORTA VIA]

will this work for you

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value <> "" Then


If ActiveCell.NumberFormat = "dd/mmm/yy hh:mm AM/PM" Then

MsgBox "are you sure?"
End If
End If
End Sub

 

[apicsofcake]

will this work for you

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value <> "" Then


If ActiveCell.NumberFormat = "dd/mmm/yy hh:mm AM/PM" Then

MsgBox "are you sure?"
End If
End If
End Sub

For timeStamp button click, it’s always highlighted. Is their alternative codes for clicking? Thanks