Добрый день!

Не могу сообразить формулу - помогите плз
Есть таблица с 2мя колонками - категория, статус (уникальное значение в рамках одной категории).
Цель: при наличии значения Х в колонке 2 проставить в новой колонке 3 это значение для всей категории (колонка 1)

Пример:

Категория	статус	формула для 3
а	1	3
а	2	3
а	3	3
б	1
б	2
в	1	3
в	2	3
в	3	3
в	4	3
г	1	3
г	2	3
г	3	3
д	1
е	1	3
е	2	3
е	3	3
е	4	3
е	5	3

Всем привет!

Открываю файл Excel методом Application.GetOpenFilename.
Получаю ошибку 1004. Код останавливается.
Ошибка из-за того, что открываемый файл имеет расширение XLS, но выгружен в другом формате (web). Изменить формат выгрузки нельзя.
При ручном открытии такого файла возникает диалог типа:

Если выбираешь Да, то все нормально открывается в Эксель.

Как мне изменить код, чтобы можно было автоматом ответить Да?

Application.DisplayAlerts = False и On Error Resume Next - не помогают, файл не грузится.

Мой код (начало):
  Dim avFiles

   avFiles = Application.GetOpenFilename _
               ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файл", , False)
   If VarType(avFiles) = vbBoolean Then
       MsgBox "Файл не выбран", 0, "Выбор файла"
       Exit Sub
   End If
   
 
Dim WB As Workbook
Set WB = Workbooks.Open(avFiles, ReadOnly:=True)