web query rusing cell value

[rs585832]

This is what I have so far, so close but it only returns a blank sheet not the data
where Cells(row,2).Value = the URL any ideas??!?!? let me know if you have any questions!

Please Login or Register  to view this content.

[rs585832]

Solved for people with similar problems!

Dim row As Integer
row = 2

Do Until IsEmpty(Cells(row, 1).Value)

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://star.finra.org/STAR/Main.aspx?source=starapp&MatterID=" & Sheets("Gene > 300").Cells(row, 1).Value & "&action=mattersearch" _
, Destination:=Range("$A$1"))
.Name = "Main.aspx?source=starapp&MatterID=" & Sheets("Gene > 300").Cells(row, 1).Value & "&action=mattersearch"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With