I would like to open multiple websites in one window with multiple tabs using VBA in Excel. My present code opens each website in a separate window.
Sub Weather()
'
' Look at weather websites
'
Dim URL As String
Dim ie As Object
URL = "http://cleardarksky.com/c/AnaheimCAkey.html?1"
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate URL
Set ie = Nothing
URL = "http://www.goes.noaa.gov/GSSLOOPS/wcir.html"
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate URL
Set ie = Nothing
URL = "http://www.weather.com/weather/hourbyhour/l/92886:4:US"
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate URL
Set ie = Nothing
URL = "http://www.wunderground.com/cgi-bin/findweather/getForecast?query=92886"
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate URL
Set ie = Nothing
End Sub