Excel - macro to select cell in workbook with current date
<p>I'm creating a calendar/schedule workbook in Excel. It has a worksheet for each month.</p>

<p>Now I need to create a <code>CommandButton</code> which takes me to the cell which contains the current date. There's only one cell with the current date, but it can be on any sheet of the workbook.</p>

<p>I've been searching for days now, but can't get it right!</p>

<p>Things I've been trying:</p>

<pre><code>Private Sub CommandButton1_Click()

Dim Sh As Worksheet
Dim Loc As Range

For Each Sh In ThisWorkbook.Worksheets
    With Sh.UsedRange
        Set Loc = .Cells.Find(What:=Int(Date), LookIn:=xlValues)
        If Not Loc Is Nothing Then
            Do Until Loc Is Nothing
                Loc.Select
                Set Loc = .FindNext(Loc)
            Loop
        End If
    End With
    Set Loc = Nothing

Next

End Sub
</code></pre>

<p>This kinda works when the cell with the current date is on the same sheet (although it keeps reselecting the cell until I press Esc), but fails when the cell is on another sheet.</p>

<p>Any help would be appreciated!</p>