Sometimes it is useful to help yourself. Had you bothered to goto the vba
help index and type in calculation you would have had as the first hit:
Calculation Property
See AlsoApplies ToExampleSpecifics
Calculation property as it applies to the Application object.

Returns or sets the calculation mode. Read/write XlCalculation.

XlCalculation can be one of these XlCalculation constants.
xlCalculationAutomatic
xlCalculationManual
xlCalculationSemiautomatic

expression.Calculation

expression Required. An expression that returns one of the above objects.

Calculation property as it applies to the PivotField object.

Returns or sets the type of calculation performed by the specified field.
This property is valid only for data fields. Read/write
XlPivotFieldCalculation.

XlPivotFieldCalculation can be one of these XlPivotFieldCalculation
constants.
xlDifferenceFrom
xlIndex
xlNoAdditionalCalculation
xlPercentDifferenceFrom
xlPercentOf
xlPercentOfColumn
xlPercentOfRow
xlPercentOfTotal
xlRunningTotal

expression.Calculation

expression Required. An expression that returns one of the above objects.

Remarks
For OLAP data sources, this property can only return or be set to xlNormal.

Example
This example causes Microsoft Excel to calculate workbooks before they are
saved to disk.

Application.Calculation = xlCalculationManual
Application.CalculateBeforeSave = True
This example sets the data field in the PivotTable report on Sheet1 to
calculate the difference from the base field, sets the base field to the
field named "ORDER_DATE," and then sets the base item to the item named
"5/16/89."

With Worksheets("Sheet1").Range("A3").PivotField
.Calculation = xlDifferenceFrom
.BaseField = "ORDER_DATE"
.BaseItem = "5/16/89"
End With

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"driller" wrote in message
...
thanks ken,

learning by experience is only 2 cents worth in this forum...as someone
quoted here before...Yet, I still dont know how to study excel - outside
of
this forum !

regards,
driller
--
*****
birds of the same feather flock together..



" wrote:

driller
Put

Application.Calculation = xlManual

at the beginning. And

Application.Calculation = xlAutomatic

at the end.

Good luck.

Ken
Norfolk, Va



On Jul 11, 2:00 pm, driller wrote:
Hi again,

How to write in this code by
1) making the workbook to be set in Manual Calc. mode, before
population of
template sheets,
2)after population of the sheets, return back to Automatic calc mode.

here's the wonderful <guided typical code from Sir Toppers
----------
Sub SetUp()

Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As
Worksheet
Dim irow As Long, orow As Long
Dim Lastrow As Long

Dim wsname As String

Set ws1 = Worksheets("LIST")
Set ws2 = Worksheets("TEMPLATE")
Set ws3 = Worksheets("CAT")
Set ws4 = Worksheets("DATA")

With ws1

Lastrow = .Cells(Rows.Count, 1).End(xlUp).Row

For irow = 2 To Lastrow
wsname = .Cells(irow, 2)
Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = wsname
ActiveSheet.Range("H1") = wsname
.Cells(irow, 33).Formula = "='" & wsname & "'!h54"
.Cells(irow, 34).Formula = "='" & wsname & "'!h53"
.Cells(irow, 35).Formula = "='" & wsname & "'!h52"
.Cells(irow, 36).Formula = "='" & wsname & "'!h51"
.Cells(irow, 37).Formula = "='" & wsname & "'!h50"
.Cells(irow, 38).Formula = "='" & wsname & "'!J9"
.Cells(irow, 39).Formula = "='" & wsname & "'!C53"
.Cells(irow, 40).Formula = "='" & wsname & "'!C52"
.Cells(irow, 41).Formula = "='" & wsname & "'!C51"

Next irow

End With

End Sub
---------

thanks for help,
driller

--
*****
birds of the same feather flock together..