XL2000: Refresh Data for Active Sheet Only

[locutis]

Hello,

I now I can do a macro to refresh the workbook:
ActiveWorkbook.RefreshAll

But it is very slow. Is there a way to refresh only the active sheet? Or can someone offer another solution to speed this up? I tried several things and researched but was unable to find a solution. Thought maybe one of the experts here might be able to help.

Thanks,
Jean Luc

 

[SkipVought]

Hi,

dim pt as pivottable, qt as querytable, sSheet as string
ssheet = "yoursheetname"
for each pt in Worksheets(ssheet).Pivottables
   pt.pivotcache.refresh
next
for each qt in Worksheets(ssheet).querytables
   qt.refresh
next

Skip,
[sub]
[red][/red]
[/sub]

 

[locutis]

Wow, thanks Skip! I'll implement your code and let you know how it goes.

Jean Luc

 

[SkipVought]

if you do it on the activesheet, then...

ssheet = activesheet.name

or you could substitute ActiveSheet for Worksheets(ssheet)

Skip,
[sub]
[red][/red]
[/sub]