Переход к определенной строке

[AlienZ]

Доброго времени суток!
Есть вопрос!

Есть книга в excel, в столбце B расположены даты.
Хочу написать макрос, который будет искать ячейку с текущей датой и либо выбирать ее, либо пролистывать таблицу до нее.
В макросах мало чего понимаю, поэтому дальше t = Date не ушел((((
Помогите пожалуйста!

[Hugo121]

Sub tt()
    Dim x As Range
    Set x = Intersect(UsedRange, Columns(2)).Find(Date)
    If Not x Is Nothing Then
        x.Select
    End If
End Sub

[AlienZ]

Пишет Run-time error '424';
Object required
и выделяет строку Set x = Intersect(UsedRange, Columns(2)).Find(Date)

[VictorM]

Попробуйте так, у меня сработало
Set x = Columns(2).Find(Date)

[Hugo121]

А так?

    Set x = Intersect(ActiveSheet.UsedRange, Columns(2)).Find(Date)

[VictorM]

А так?

А так все ОК!

[Hugo121]

У меня под 2007 работают оба варианта.

[VictorM]

Ясно.
ТС как всегда не указал свою версию Excel
У меня 2003-й