Hello again Steve,

Is the Userform 'Splash' still visible when you attempt to show it in
DisplaySplash? I am suspecting it is and that is the reason for the On Error
Resume Next. You cannot show a UserForm modally when it is already visible.
You need to hide it first. While hidden it is still loaded and you can make
changes to it with other code.

Try the following:

Private Sub GetTour_Btn_Click()
Workbooks.Open ("Tour Quoting Program (Pricer).xls")
Call DisplaySplash 'This line does not appear to be executing
End Sub

Sub DisplaySplash()
Splash.Hide 'Add this line (Could be prior to Call DisplaySplash)
Call HideApp
Call RemoveCustomMenu
Call AddCustomMenu
'On Error Resume Next 'Should not be required
Splash.Show
'On Error GoTo 0
End Sub


--
Regards,

OssieMac