Pivot Table Issues

[Pestomania]

Hi everyone,

I have a workbook that a macro opens, saves, and information is pulled from that excel. Problem is: the Workbook will not update while macro is running. The worksheet opens, everything is 0 and then it saves as everything 0. When I leave it open after macro finishes, it will update to the correct data. What do I do????

 

[steve the fish]

Its always good to provide the code but sounds like you have calculation off. You could put an

Application.CalculateFull

in the code at the appropriate moment

 

[Pestomania]

So all of my calculations are set to off. I still tried the Application.CalculateFull, still nothing. Below is the code that I'm trying .

Sub SaveDocuments ()

Dim LocalFolder as String

Workbooks.Open Filename:= CutGoals
Workbooks("Cut Goals"). Activate
ActiveWindow.Visible = True
Application.CalculateFull
Sheets("CutGoals by WO").select

Wb = Left(ActiveWorkbook.Name, (InstrRev(Active workbook.name, ".", -1, vbtextcompart)-1))
Path = LocalFolder
Active workbook.CheckCompatibility = False
ActiveWorkbook.Saveas Filename:=Path & "\" & wb, FileFormat:= 51

ActiceWorkbook.Close

End Sub

Thank you!