Refresh Data on hidden worksheet <--help please

[Dan]

Hello -

I have some VBA which will REFRESH DATA on a worksheet. However, when
the worksheet is hidden, the macro will not work.

How can I get this code to work on this HIDDEN WORKSHEET?

Sub JCW_Refresh()
Sheets("ODBC Updates").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("JCW").Select
End Sub

Thanks for helping out this rookie.
Dan

 

[Jim Thomlinson]

Try something more like this...

Sub JCW_Refresh()
application.screenupdating = false
with Sheets("ODBC Updates")
.visible = xlsheetvisible
.QueryTable.Refresh BackgroundQuery:=False
.visible = xlsheethidden
end with
application.screenupdating = true
End Sub

 

[Dan]

Try something more like this...

Sub JCW_Refresh()
application.screenupdating = false
with Sheets("ODBC Updates")
.visible = xlsheetvisible
.QueryTable.Refresh BackgroundQuery:=False
.visible = xlsheethidden
end with
application.screenupdating = true
End Sub
--
HTH...

Jim Thomlinson









- Show quoted text -

Thanks for the help. I tried this code but am still getting a DEBUG
error from this line:

..QueryTable.Refresh BackgroundQuery:=False

Regards,
Dan

 

[Jim Thomlinson]

Sorry... IIRC the sheet does not need to be visible. Try this (once again
untested but I think it should work)...

Sub JCW_Refresh()
Sheets("ODBC Updates").QueryTables(1).Refresh _
BackgroundQuery:=False
End Sub

 

[Dan]

Sorry... IIRC the sheet does not need to be visible. Try this (once again
untested but I think it should work)...

Sub JCW_Refresh()
Sheets("ODBC Updates").QueryTables(1).Refresh _
BackgroundQuery:=False
End Sub

--
HTH...

Jim Thomlinson








- Show quoted text -

Perfect! Thanks much for the assistance.

Dan