VBA select cell containing today’s date

[adam199311]

Hi,

I have a sheet containing dates in a calendar format. I am looking for VBA code that I can assign to a button to select the cell that contains today’s date.

Thanks in advance for any help.

 

[JoeMo]

This assumes that the button is on the sheet that has calendar format, and that today's date appears no more than once on that sheet.

Sub FindToday()
Dim Dte, Fnd As Range
Dte = Date
With ActiveSheet.UsedRange
    Set Fnd = .Cells.Find(CStr(Dte), LookIn:=xlFormulas, lookat:=xlWhole)
    If Fnd Is Nothing Then
        MsgBox "Can't find today's date - exiting sub"
        Exit Sub
    End If
    Fnd.Select
End With
End Sub