Try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
If Intersect(Target, Me.Range("a:a")) Is Nothing Then
.Calculation = xlCalculationManual
Else
.Calculation = xlAutomatic
.MaxChange = 0.001
End If
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

hth,

Doug Glancy

"paritoshmehta " wrote in
message ...
Hi,

I have this sheet which turns the calculations OFF when opened..... and
i was trying to write a code which will turn on the calculations if
something in the "a" column is entered.....

I was trying to use this code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Me.Range("a:a")) Is Nothing Then Exit Sub
With Application
Calculation = xlAutomatic
MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

this works fine... i.e. as soon as something is entered in any cell in
column A, it turns on the calculation... but i cannot figure out a way
to change back the calculation to manual when any other cell is
selected....


any help is greatly appreciated!!!!


---
Message posted from http://www.ExcelForum.com/