VBA Query multiple links currency

[StuartWhi]

Hi Guys,

I though I had this one solved after reading other posts but,,, I hope you can help.

I have multiple cells with different currencies which are queries to this Google currency URL.
https://www.google.com/finance/converter?a=1&from=SGD&to=IDR&meta=ei%3D0qLMVfnjJYGZuATQw6rgBA
- changing the IDR to USD etc in differnct cells from AA4 down to AAx

I'm using this code to check for

Sub UpdateCurrency()
Dim WorkSt As Worksheet, QueryTa As QueryTable


'Set's the Lookups tab to unprotected mode
    Call UnProtectSheet


'Selects the lookups tab, refreshes web querys to get latest currencies
    Sheets("Lookups").Select
    For Each QueryTa In Sheets("Lookups").QueryTables
        QueryTa.Refresh BackgroundQuery:=False
    Next QueryTa
    Set QueryTa = Nothing


'Places current date in cell AA3
    With Range("AA3")
    .Value = Date
    .NumberFormat = "dd-mmm-yyyy"
    End With


    Sheets("Auto Import").Select
    Call ProtectSheet


End Sub

When stepping through though it updates one cell but doesn't continue.

Any ideas.

Thanks,

Stuart.

 

[StuartWhi]

Hi All,

Sorry after half a day thinking it was the VBA code above it was actually a bad (corrupted) query table link within the sheet. I manually deleted all the links then restarted again.
Please use the code above if relative to your requirements (unless someone offers a better solution).

Stuart