Поиск значения и переход к ячейке, VBA

Формулировка задачи:

Доброго времени суток Я ~~задолбалась~~ не могу никак осуществить поиск по книге Excel такой, что первая ячейка с нужным значением активировалась бы. Задача: книга, в книге листы с названиями месяцев, на них по два столбца на каждую дату месяца, в заголовках, соответственно, сама дата стоит. Нужно: переход к первой встретившейся ячейке с сегодняшней датой. Чтобы просто перейти на лист и столбец к ней. Написала костыльный поиск листа через вытаскивание куска сегодняшней даты, получила имя листа, искала на нем. Пробовала так:

                    Листинг программы
                
Worksheets(Name_sheet).Range("A5:BP5").Find (CStr(Date)).Select

И так

                    Листинг программы
                
Worksheets(Name_sheet).Range("A5:BP5").Find (CStr(Date)).Activate

И даже так (с range и без него)

                    Листинг программы
                
Worksheets(Name_sheet).Range("A5:BP5").Cells.Find(What:=Cstr(Date), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

И нифига не работает. Говорит, ошибка синтаксиса и все тут. Просто

                    Листинг программы
                
Worksheets(Name_sheet).Range("A5:BP5").Find (CStr(Date))

ничего не выдает. Вообще. Просто как будто не запускала. Пробовала с Cstr и без него. По ходу, совсем дурочка. Помогите, пожалуйста.

Решение задачи: «Поиск значения и переход к ячейке, VBA»

textual
                            Листинг программы 
                        
Sub tt()
Name_sheet = "Sheet1"
Set r = Worksheets(Name_sheet).Range("A1:BK1").Find(Date, , xlValues)
If Not r Is Nothing Then r.Select
End Sub