Hi, gurus of Excel
This is the code I am using:

Sub Go2Date()
Dim myFind As Integer
Dim rng As Range
myFind = ActiveSheet.Range("A2").Value
Set rng = ActiveSheet.Range( _
"$A$3:$G$564").Find(myFind, _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
Application.Goto rng, True
Else
MsgBox myFind & " not found"
End If
End Sub

What I would like it to do:
Look at the date in A3
Then find that date in the range of the calendar (A3:G564)
When found, then go to that date.

If possible, I would rather want it to go to the beginning of that row
(column A) because:
Column A = Monday, Column 2 is Tuesday ....
Under each day, there are 10 cells, which read input from another calendar
for scheduling events.
The idea is to click on the button I provided with assigned code, which
looks at the date the user wishes to see, then takes them to that date (
rather beginning of the week of that date col A) in the calendar.

Your help is greatly appreciated.
THX
Driftwood