This should get you started. It's tough to know how you have the fields
formatted, so you mway want to play around with this a bit.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myFormat As String

If Target.Count 1 Then Exit Sub

myFormat = Target.NumberFormat
Debug.Print myFormat

End Sub



"rick" wrote:

Does any event fire when a User clicks in a cell?
I don't have any adjacent cells for a date picker control so I made one
myself . It works fine on userforms but I would like to .show the
calendarForm if the user clicks in a cell that is formatted as Date.

Thanks.

Rick