Hi,

I have this sheet which turns the calculations OFF when opened..... an
i was trying to write a code which will turn on the calculations i
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 i
column A, it turns on the calculation... but i cannot figure out a wa
to change back the calculation to manual when any other cell i
selected....


any help is greatly appreciated!!!

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