Show Access window with Excel Open

[Candyman]

I am posting data to Excel from access. The code Opoens Excel and shows that
application. If the cod ein Access jams how do I view the Access window to
see the error message?

My error message works, but I am still looking at Excel?

Set xlsApp = CreateObject("Excel.Application")
xlsApp.Application.Workbooks.Open TemplateFile
xlsApp.Application.Visible = True
xlsApp.Application.DisplayAlerts = False

Thanks