Do you have code like

Worksheets(21).EnableCalculation = False


--
Regards,
Tom Ogilvy

"Robert" wrote in message
...
Using Tools,Option, I set a fairly large workbook to Manual Calc. I want
have
automatic calc on one sheet (or two). In the worksheet objects,
SelectionChange
I have the following code.
"Worksheets(21).Calculate"

The following code is in "Worksheet - Change".
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("Sequence")) Is Nothing Then
With Target
.Offset(25, 0).Value = Format(Now, "dd mmm yy hh:mm:ss")
.Offset(25, 1).Value = Environ("UserName")
End With
End If
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("Date")) Is Nothing Then
With Target
.Offset(23, 0).Value = Format(Now, "dd mmm yy hh:mm:ss")
.Offset(23, 1).Value = Environ("UserName")
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub

I am not able to have worksheet21 in calc mode. Even Shift+F9 is not able
to recalc. What could be wrong. F9 however, is able to recalc the
workbook.

Thank you,
Robert