Hi
I have a calender type set up where I am using a different sheet for each month. On the front sheet I want a button where I can click and it will take me straight to todays date.
I have this from a previous thread to find the date on a single page, but how do i modify it to search many sheets?
Thank youSub Select_Today() Dim rng As Range Set rng = Range("1:1").Find(Date, , xlValues, xlWhole) If Not rng Is Nothing Then rng.Select Else MsgBox "Cannot locate today's date in row 1.", , "Today Never Happened" End If End Sub
Bookmarks