Sub RunUrl(sUrl, bMaximized) Dim oShell Set oShell = WScript.CreateObject("WSCript.shell") If bMaximized = True Then oShell.run sUrl, 3 Else oShell.run sUrl, 1 End If Set oShell = Nothing End Sub