нерабочие гиперссылки

[Mazajka]

Сообщение от Казанский

или так, с использованием классического бейсиковского механизма обработки ошибок

Dim hlnk As Hyperlink
If Selection.Hyperlinks.Count = 0 Then
  MsgBox "В ячейках нету гиперссылок"
  Exit Sub
End If
On Error GoTo 10
For Each hlnk In Selection.Hyperlinks
  hlnk.Follow NewWindow:=False, AddHistory:=True
    'здесь работа с открывшейся ссылкой
1 Next
'...
Exit Sub

10 Resume 1 'это обработчик ошибки
End Sub

Казанский, здравствуйте!Помогите, пожалуйста!
Каждый день мне приходится проверять рабочесть ссылок с переходом по URL (фото прилагаю). Мне нужно написать такой макрос, чтобы при выделении определенных ячеек и запуске этого макроса, все эти ссылки открылись в браузере.

Я вроде бы написала скрипт:
Public Sub ссылки3()
Dim CHs As Range
Dim CH As Range
Dim i As Integer

Set CHs = Selection.Cells
i = 0

For Each CH In CHs
CH.Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
DoEvents
Next
End Sub.

Но вот как обойти ошибку следующего характера: Если ссылка нерабочая, то макрос выдает ошибку. Как изменить строку "Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True"?

[Казанский]

А чем процитированный код не устраивает? Он ровно это и делает, обходя ошибки.

[Mazajka]

Сообщение от Казанский

А чем процитированный код не устраивает? Он ровно это и делает, обходя ошибки.

Спасибо! Действительно работает) Но теперь другая проблема - хочется, чтобы тогда, когда возникает ошибка, на месте этой ячейки с гиперссылкой появлялось "не работает". Можно ли так?

[Казанский]

Public Sub ссылки3()
Dim hlnk As Hyperlink
If Selection.Hyperlinks.Count = 0 Then
  MsgBox "В ячейках нет гиперссылок"
  Exit Sub
End If
On Error GoTo 10
For Each hlnk In Selection.Hyperlinks
  hlnk.Follow NewWindow:=False, AddHistory:=True
    'здесь работа с открывшейся ссылкой
1 Next
Exit Sub

10 With hlnk.Range
    .Value = "не работает"
    .Interior.Color = vbRed
   End With
Resume 1 'это обработчик ошибки
End Sub