Suppress Excel system message

[julhs]

When attempting to open a Workbook using msoFileDialogFilePicker I get a Microsoft Excel Message:- “Book is already open. Reopening will cause changes you made to be discarded – Do you want to continue” Yes/No
If choose “Yes” – that’s fine.
But if I selected the “No” option it would through a ‘Runtime Error 1004 – Method Open of Object “Workbook” failed’ message at the line highlighted due to the Workbook I am attempting to open being already open but UNSAVED.
I have inserted a Error Handler to deal with the issue of selecting the “No” option.

But of course I am still getting the Microsoft Excel Message:- “Book is already open. Reopening will cause changes you made to be discarded – Do you want to continue” Yes/No; is there any way I can suppress this message or deal with the Runtime Error 1004 in a different way.

Please Login or Register  to view this content.

[InvisibleMan]

You could perhaps use Application.DisplayAlerts = False. However, that takes a default value and I'm not sure what the default is in this situation.

[shg]

Another way:

Please Login or Register  to view this content.

[julhs]

Thanks shg.

Get the MsgBox as intended if Workbook is open; but getting a Runtime Error 91 – Object variable or With block variable not set - on line (29) If LCase(wkb.FullName) <> LCase(sFile) Then Set wkb = Workbooks.Open(sFile) if it’s not open.

[shg]

Ah. Try

Please Login or Register  to view this content.

[julhs]

That's it, many thanks shg

[shg]

You're welcome.