VBA Script - Auto select end upon macro error msg box & display msg box

[Beachson]

Hi all, I have a macro which looks to select a workbook as it's first command ...

Windows("FileName.XLSX").Activate

If the file is available to select then the macro will run and I have no issues but I am trying to write something that will automatically click "END" upon receiving the "Run time error '9': Subscript out of range" error message box if in fact the workbook is not available to select. Also after auto selecting or confirming "END" I would like to display a message box.

Can anyone help me with this? Many thanks

 

[unorthodoxconqueror]

do something like this

Sub MyRoutine

On Error Resume Next

Windows("FileName.XLSX").Activate

If Err.Number = 9 Then GoTo err9

On Error Goto 0

' your code here

Exit Sub

err9:

MsgBox "Workbook not found!"

End Sub

This will trap ONLY the "Subscript Out of Range" error, which occurs when you tell Excel to look at a range, window, worksheet, object etc that does not exist.

 

[Beachson]

I will give it a shot and let you know thanks