How to Quickly Jump to the Cell with the Current Date in Excel
If you're managing data across time in Excel, it's handy to jump directly to the cell with the current date. This can be done using Visual Basic for Applications (VBA) code:
Step 1: Open VBA Editor
Press Alt + F11
to open the VBA Editor.
Step 2: Insert a New Module
In the Project Explorer, right-click on any of the items and choose Insert
> Module
. This will create a new module.
Step 3: Enter the VBA Code
In the new module, paste the following VBA code:
Sub FindToday()
Dim FindString As String
Dim Rng As Range
FindString = Date
With Sheets("Sheet1").Range("A:A")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Nothing found"
End If
End With
End Sub
This code searches column A in "Sheet1". Replace "Sheet1" and "A:A" with your sheet name and the column you want to search.
Step 4: Run the Macro
Close the VBA Editor and press Alt + F8
, select FindToday
and press Run
. Excel will find the cell with today's date and take you there.