Question

I have the following code assigned to a button in an excel worksheet.

Sub Hyperlink()

Worksheets("Sheet Name").Cells(ActiveCell.Row, 3).Hyperlinks(1).Follow

End Sub

When the button is clicked, excel will open the active row’s attached file. This works fine as long as there is a hyperlink in the active row and the user clicks OK when the warning window pops up.

If possible, How can I:

1. Avoid the warning to open the hyperlinked file?
2. Avoid, disable, or customize the following error messages.
   1. Empty row or no hyperlinked file.
      • (Run-time error ‘9’: Subscript out of range.)
   2. Clicking cancel when there is a hyperlinked file.
      • (Run-time error ‘-24147467260 (80004004)’: The hyperlink cannot be followed to the destination.)

Here are screenshots of the pop-up messages.

Thank You.

I also found a way to disable hyperlink warnings here.
Although, I do not want to do this for every user of the workbook…

Answer 1

Display.Alerts=False will not work, otherwise any bad guy could turn off warnings. This might work for you partially.

Sub Hyperlink()
On Error Resume Next
Worksheets("Sheet Name").Cells(ActiveCell.Row, 3).Hyperlinks(1).Follow
If Error <> "" Then MsgBox ("Nowhere to go, Nothing to see")
End Sub