Code to Open Multiple Websites at Once

Perhaps there is an instance of IE that is open but not visible already. You could add code to force close IE at the the beginning of your subroutine.

Sub OpsBrief()

' Open websites associated with morning brief
Dim strURL As String, fail As Boolean
Dim objIE As Object
Dim arrSites(4)
Dim objWMI As Object, objProcess As Object, objProcesses As Object
Set objWMI = GetObject("winmgmts://.")
Set objProcesses = objWMI.ExecQuery( _
"SELECT * FROM Win32_Process WHERE Name = 'iexplore.exe'")
For Each objProcess In objProcesses
Call objProcess.Terminate
Next
Set objProcesses = Nothing: Set objWMI = Nothing
arrSites(0) = "https://www.pilotbrief.com/Optima/Nav/BrowseChartsLite/conus"
arrSites(1) = "http://www.timeanddate.com/astronomy/usa/frankfort"
arrSites(2) = "https://sharepoint.ky.ngb.army.mil/DMA/aviation/Lists/Flight%20Tracker%2020/All%20Aircraft.aspx"
arrSites(3) = "http://www.wunderground.com/q/zmw:40601.1.99999"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate arrSites(1)
For i = 1 To 3
objIE.Navigate2 arrSites(i), 2048
Next i
objIE.Visible = True
Set objIE = Nothing

End Sub

They all open fine for me, apart from the Sharepoint site of course.