Need Help With Input Box To Open File in Specified Path

Sorry, The picture post failed in #19.
Attachment 24000
you can also use you original code with error handle.

Is png format not uploadable? try again used jpg format.
Attachment 24002

Do you have an English version of the picture?

Sorry, I don't have it, But according to the content of the picture, should be able to find the corresponding options.

An example used your original code with error handle.
I'm disappointed that didn't use code editing.:(

Hi I managed to debug it

Code:

---

Sub OpenFile()Dim sFileName As Variant


 sFileName = Application.GetOpenFilename("Excel Files (*.xl*), *.xl*")
If sFileName <> False And sFileName <> "" Then


Call ShowForm(sFileName)


End If
End Sub


Sub ShowForm(ByVal FilePath As String)


    Application.Run "'" & FilePath & "'!ShowForm"
   
    On Error GoTo ErrHandle
    Application.Run "'" & FilePath & "'!ShowForm"
    Exit Sub
ErrHandle:
    MsgBox "You canceled the process!"
End Sub

---

@ham
Are you sure "on error" under "application.run" is no problem?


--Okami