Worksheet SelectionChange Calculate

[Robert]

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

 

[Robert]

Sorry posted to wrong group