How to open any program on your computer

[Noxqss38242]

Currently I'm trying to use this code:

Private Sub CommandButton1_Click()
Sub Open_Program()

Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe")

End Sub

HOWEVER, when I run it, I get a "compile error: Expected End Sub" error message.

Just trying to figure out how to launch any program on the computer when knowing the path for it.

 

[Joe4]

You have two "Sub" lines in a row:

Private Sub CommandButton1_Click()
Sub Open_Program()

Remove one.

You cannot have start a new "Sub" until you end the previous one with an "End Sub" line.

 

[Noxqss38242]

You have two "Sub" lines in a row:

Private Sub CommandButton1_Click()
Sub Open_Program()

Remove one.

You cannot have start a new "Sub" until you end the previous one with an "End Sub" line.

Works now...thanks!

 

[Joe4]

You are welcome.