[RESOLVED] opening files via commandbutton

[Albatross]

I'm trying to find the code to have a web page open from a command button.

specifically, when I simply press a button on one of my sheets, I want IE to launch and a specific web page to load. (this site is one of them actually).

I can get excel sheet to load this way but I havent been able to get web pages to load yet. any help would be appreciated.

[DKenny]

Try the following

Private Declare Function ShellExecute _
                            Lib "shell32.dll" _
                            Alias "ShellExecuteA" ( _
                            ByVal hwnd As Long, _
                            ByVal lpOperation As String, _
                            ByVal lpFile As String, _
                            ByVal lpParameters As String, _
                            ByVal lpDirectory As String, _
                            ByVal nShowCmd As Long) _
                            As Long
 
Private Sub Command1_Click()
   Dim r As Long
   r = ShellExecute(0, "open", "WWW.YourWebAddressHere.COM", 0, 0, 1)
End Sub

[Albatross]

My mistake. I specified a commandbutton but neglected to specifcy that I'm using excel.

I tried adding in the code supplied but getting compile errors.

[DKenny]

Have you added the Private Declare Function statement at the top of the module? it need to be before any procedure?

I ran this in excel and it worked fine.

[Albatross]

That worked this time. thank you!