ник: Nastya
Ниже приведенный код взят из книги по VBA. При запуске возникает ошибка "400". Как с этой ошибкой бороться? Сначала я сама писала и каждый раз эта ошибка "400", но этот пример уже из книги :). Помогите, плиз.
Sub FindAndSelect()
Dim strStartAddr As String ' Хранит координаты первого найденного значения
Dim rgResult As Range
' Поиск первого входжения искомого слова
Set rgResult = Range("Bl:B10").Find("Прибыль", , xlValues)
If Not rgResult Is Nothing Then
' Сохраним адрес найденной ячейки (чтобы контролировать зацикливание поиска)
strStartAddr = rgResult.Address
End If
Do While Not rgResult Is Nothing
' Обработка результата поиска
rgResult.Interior.Color = RGB(255, 255, 0)
' Новый поиск
Set rgResult = Range("Bl:BIO").FindNext(rgResult)
If rgResult.Address = strStartAddr Then
' Поиск завершен
Exit Do
End If
Loop
End Sub