Найти и выделить по выделенной строке диапазон с такой строкой на другом листе (Excel 2003)

[vfv]

Найти и выделить по выделенной строке на Лист2 диапазон с такой строкой на Лист3 (Excel 2003)

[Maxx]

Sub findStr()
Dim wS As Object: Set wS = Sheets("Лист3")
    f = InputBox("Введите номер строки", "Выбор строки для поиска на Листе 3")
    a1 = Cells(f, 1): a2 = Cells(f, 2): a3 = Cells(f, 3): a4 = Cells(f, 4): a5 = Cells(f, 5)

    For i = 1 To wS.Cells(Rows.Count, 1).End(xlUp).Row
        If wS.Cells(i, 1) = a1 And wS.Cells(i, 2) = a2 And _
            wS.Cells(i, 3) = a3 And wS.Cells(i, 4) = a4 And _
                wS.Cells(i, 5) = a5 Then
                    wS.Select
                    With Range(Cells(i, 1), Cells(i, 5)).Interior
                        .Color = 255
                    End With
                Exit For
        End If
    Next
End Sub

[vfv]

Спасибо,что откликнулись.Посмотрел файл.
Мне нужно,чтобы не было окна запроса номера строки,а выделить строку по которой искать(или любую ее ячейку) мышкой и нажать на кнопку поиска.

[alex77755]

    f = InputBox("Введите номер строки", "Выбор строки для поиска на Листе 3")

эту строку закоментируй или удали.
А вмодуль листа вствь:

Option Explicit
 Public f
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
f = Target.Row
End Sub

номер строки будет запоминаться

[vfv]

Не работает.
Всплывает окно
Run-time error '1004':
Application -defined or object-defined error

[vfv]

Как исправить макрос.
Смотреть вложение.

[alex77755]

Public f вынеси в модуль

[vfv]

Спасибо вам alex77755!
С вашей подсказкой макрос заработал.

[Maxx]

To vfv

С вашей подсказкой макрос заработал

Он и так работал!

Найти и выделить по выделенной строке на Лист2 диапазон с такой строкой на Лист3 (Excel 2003)

А лучше было бы так: выделяю строку или ячейку на Листе2 - жму кнопку "Поиск" - макрос ищет такую же строку или ячейку на Листе3 и выделяет ее таким-то цветом.
Удачи!