Focus on a cell based on date
in ThisWorkbook module put the following code
Private Sub Workbook_Open()
Dim l As Double
Range("A1:A10000").Select
l = DateSerial(Year(Now()), Month(Now()), Day(Now()))
k = Application.WorksheetFunction.Match(l, Selection, 0)
Cells(k, 1).Select
End Sub
|