Dear Gentlemen

I have the following problem:

I am running this code successfully from a module in a workbook:

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
__________________________________________________ _____
Sub OpenURL()
Dim URL As String
Dim Result As Long
URL = "https://partner.net2phone.com/apps/account/calls.aspx"
Result = ShellExecute(0&, vbNullString, URL, _
vbNullString, vbNullString, vbNormalFocus)
If Result < 32 Then MsgBox "Error"
End Sub

Private Sub Workbook_Open()
OpenURL
End Sub

The problem is that the web page will only open the calls report of the
Service Account that is in the web page at that particular moment, what I
need is the proper code so that it would open the calls report for the
Service Account of the workbook, since I have a different workbook for every
Service Account.

Login URL: https://partner.net2phone.com/apps/common/login.aspx
the login is: famaperu45
the password is: my69car

Service Account to test:
3484690293
4211117659
2965282207

Your help will be greatly appreciated.

Thanks & regards
farid2001