Sleep(3000) If not WinExists("Weber Shandwick Interactive Guide to the European Union") Then ShellExecute("C:\Program Files\Internet Explorer\iexplore.exe", "D:\startcd.htm", "", "", @SW_MAXIMIZE) Else WinActivate("Weber Shandwick Interactive Guide to the European Union") EndIf