domino1352
IS-IT--Management
I am trying to speed up the creation of a spread sheet but when I try to turn of the automatic calculation it errors out on me
I have tried the following lines
xl.Calculation = xlCalculationManual
xlSheet.application.Calculation = "xlCalculationManual"
here is a code snippet
Set xl = CreateObject("Excel.application"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
set xlWbk = xl.Workbooks.Add
Set xlSheet = xlWbk.Worksheets(1)
Call xlSheet.Activate
xl.screenupdating = False
xl.Calculation = "xlCalculationManual"
On Error Goto errorHandler
I have tried the following lines
xl.Calculation = xlCalculationManual
xlSheet.application.Calculation = "xlCalculationManual"
here is a code snippet
Set xl = CreateObject("Excel.application"
set xlWbk = xl.Workbooks.Add
Set xlSheet = xlWbk.Worksheets(1)
Call xlSheet.Activate
xl.screenupdating = False
xl.Calculation = "xlCalculationManual"
On Error Goto errorHandler