Calendar Control script

[Fyr]

I have a request for a script.
I have calendar control imbedded into my worksheet sheet1.
I if a user clicks on a date, and hits a button, i want the script to search sheet2 column A for the date and set a variable with the row number the date was found in.

is this possible?

Thanks for taking a look!

 

[Fyr]

ok, I find out how to get the date that is selected in the calendar. Calendar1.Value.
this is how I would it would run:

Sub example()
Calendar1.Value
' search sheet2 for date selected in column A
' set a variable the row number in located at.
End Sub

something to that effect.

 

[John_w]

Something like this:

Sub test()
    Dim row As Long
    row = DateRow
End Sub

Public Function DateRow() As Long
    Dim findDate As Range
        
    DateRow = 0
    With Sheets("Sheet2").Columns("A:A")
        Set findDate = .Find(What:=Calendar1.Value, LookIn:=xlValues)
        If Not findDate Is Nothing Then DateRow = findDate.row
    End With
End Function