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.