Try this :

Private Sub CommandButton1_Click()
Dim WS As Worksheet
Dim QT As QueryTable

For Each WS In Worksheets
'WS.Activate No need
For Each QT In WS.QueryTables
QT.Refresh BackgroundQuery:=False
Next 'QT
Next

End Sub

NickHK

"SthOzNewbie" wrote in message
...
I know next to nothing about VB programming so please excuse any obvious
errors in the following -

I am trying to refresh multiple querytables using a button. I grabbed the
code from another post so I may not have the full context -

Private Sub CommandButton1_Click()

For Each ws In Worksheets
ws.Activate
For Each query In ws.QueryTables
query.Refresh BackgroundQuery:=False
Next query
Next

End Sub

I get an error "application defined or object defined error". What do I
need
to do to fix this ?

TIA

IK