Code to Open Multiple Websites at Once

I have used the following code to open four websites in different tabs with the press of a button created on an Excel spreadsheet. Until today, there have been no problems. Now, the first website (pilotbrief) does not open, only the other three. I don't know what happened...

Sub OpsBrief()

' Open websites associated with morning brief



     Dim strURL As String
      Dim objIE As Object
      Dim arrSites(4)
          
      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")
      For i = 0 To 3 Step 1
         strURL = arrSites(i)
         If i = 0 Then
             objIE.Navigate strURL
         Else
             objIE.Navigate2 strURL, 2048
         End If
      Next i
      objIE.Visible = True
      Set objIE = Nothing

End Sub

Any ideas?

Thanks in advance.