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


"Dan" wrote:

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

On Dec 12, 2:50 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
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



"Dan" wrote:
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- Hide quoted text -

- 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

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


"Dan" wrote:

On Dec 12, 2:50 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
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



"Dan" wrote:
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- Hide quoted text -

- 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

On Dec 12, 3:33 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
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



"Dan" wrote:
On Dec 12, 2:50 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
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

"Dan" wrote:
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- Hide quoted text -

- 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- Hide quoted text -

- Show quoted text -

Perfect! Thanks much for the assistance.

Dan