Sub Scroll_to_current_date()

    Dim rngDate As Range

MsgBox Date & vbLf & vbLf & _
       "This is just to see what Windows has for Date format" & vbLf & _
       "if this differs from the sheet date formats" & vbLf & _
       "try changing LookIn:=xlValues to LookIn:=xlFormulas"

Set rngDate = Cells.Find(What:=Date, LookAt:=xlWhole, LookIn:=xlValues)

If Not rngDate Is Nothing Then
    '
    ' 'Scroll to the cell with the current date, Row / Column
    ' Application.Goto Reference:=rngDate, scroll:=True
    '
    'Scroll to the row with the current date.
    ActiveWindow.ScrollRow = rngDate.Row
    '
    ' 'Scroll to the column with the current date.
    ' ActiveWindow.ScrollColumn = rngDate.Column
End If

End Sub