Just chane the url in the below it will work this has been already replied by Umesh Krishnan.

Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate...