How can i write a macro that when i open any sheet in the work book it will auto scroll to the row with current date listed in a column? thanks for any help
How can i write a macro that when i open any sheet in the work book it will auto scroll to the row with current date listed in a column? thanks for any help
If your date is in column A on every sheet then something like the below in the ThisWorkbook module:
Private Sub Workbook_SheetActivate(ByVal Sh As Object) On Error Resume Next Range("A:A").Find(Date).Select On Error GoTo 0 End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks