EXCEL VBA: web query from a list of URLs within cells

Hi all,

I have a list of URLs from cell O2 all the way till O100.

I will be looping the following webquery from URL LOCATION= O2 until URL LOCATION = O100 where all the URLs are located

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;[URL LOCATION]" _
        , Destination:=Range("$A$1"))
        .Name = _
         "  "
        .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

HOw do i change the red high lighted part to reference to a cell from another worksheet, maybe "DATA" ?

thanks