Excel Web query - I can only get max. 9 queries from my macro

I'm trying to create a macro that needs to get info from about 500 different web pages. After the 9th page it will not allow me to query it. I get error '1004' and the following message: 'Unable to open (website address). Cannot download the information requested.

Sometimes this happens after the 7th page. But mostly after the 9th.
I am using a Do Loop to query through the different pages.

If anyone can help thanks,

You'll need to post enough of your code for us to see what's happening.

Originally Posted by Ron Coderre

You'll need to post enough of your code for us to see what's happening.

(actually, I'm using a DO LOOP )
The website that I query needs a password login, which I need to do through Excel 'new web query'.


Here is the subroutine that queries:


Public Sub QueryW(gal, reg, sys)
'
' Query Webpage Macro
' the following web pages need to be queried:
' 'http://epsilon.astroempires.com/map.aspx?loc=E29:54:00 to
' http://epsilon.astroempires.com/map.aspx?loc=E29:54:20
'

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://epsilon.astroempires.com/map.aspx?loc=E" + gal + ":" + reg + ":" + sys, Destination:= _
Range("$B$4"))
.Name = "Test"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False

End With



End Sub




Here is the main part of the macro program:


Sub ListCoordinates()
' list all map cordinates for server from AE website


Dim gal As String, reg As String, sys As String, ast As String
Dim g As Integer, r As Integer, s As Integer, a As Integer





gal = "29"

reg = "54"

s = -1


Do While s < 20



s = s + 1


sys = Mid(Str(Val(s)), 2, 2): If Len(sys) = 1 Then sys = "0" + sys
'ast = ""



Call QueryW(gal, reg, sys)


Loop




End Sub