Getting table from a link from a cell value

[adipat]

Hello,

I hope someone can help me with this vba. this works for all links in a cell value but 1. I cant get a table from that link. I tried to go to that link from cell directly and it works fine.

Sub PPA1()
Dim www1 As String
Dim sht As Worksheet
Dim lastrow As Integer
Dim URL$(0 To 1)

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Set sht = ThisWorkbook.Sheets("PPA1")
lastrow = Sheets("PPA1").Cells(Rows.Count, 2).End(xlUp).Row

Worksheets("PPA1").Range("A:F").Clear
www1 = Sheets("Instructions").Range("f14")

With sht.QueryTables.Add(Connection:= _
"URL;" & www1 _
, Destination:=sht.Cells(1, 1))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

End With
Application.CutCopyMode = False

With ThisWorkbook
For lngConn = .Connections.Count To 1 Step -1
.Connections(lngConn).Delete
Next lngConn
End With
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub