Выполнить условие после нахождения ошибок в строке типа #н/д! #дел/0! т.д. (ошибка в макросе) - VBA

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

Здравствуйте! Помогите найти ошибку в коде макроса и исправить ее. Смысл в том, что макрос должен на листе "1" в столбце F в 6-й ячейке нажать на ссылку, затем подождать 5 секунд пока загрузятся данные, далее на листе "Промежуточный" должен проверить третью строку на ошибки типа #н/д! #дел/0! и т.д. Если в строке имеются такие ошибки, то макрос переходит к нажатию следующей ссылке в столбце F на листе "1" (то есть уже F7), затем опять проверить строку 3 на листе "промежуточный" на ошибки, и если нет ошибок, то выполнить макрос "№3". После этого опять перейти на лист "1" к следующей ссылке в столбце F. (ссылок может быть в столбце F до 1000). Таким образом нужно все нажать , все проверить на ошибки и отфильтровать те, строки в которых нет ошибок. Ниже представляю Вам макрос, он работает, Он нажимает на ссылки и выполняет макрос "№3", но он почему -то не проверяет третью строку на листе "промежуточный" на ошибки и сразу выполняет макрос "№3". Помогите пожалуйста найти и исправить ошибки.

Sub макрос1()
Dim varIfError As Variant
PosStr = Cells(Rows.Count, 6).End(xlUp).Row
For i = 6 To PosStr
Sheets("1").Select
Range("F" & i).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.Wait Time:=DateAdd("s", 5, Now)
varIfError = WorksheetFunction.IfError(Sheets("Промежуточный").Cells(3, i), "")
If varIfError = "" Then
Else
Call №3
End If
Next i
End Sub

Решение задачи: «Выполнить условие после нахождения ошибок в строке типа #н/д! #дел/0! т.д. (ошибка в макросе)»

textual
                            Листинг программы 
                        
                                If Not IsError(Sheets("Промежуточный").Cells(3, i)) Then Call №3