G
Guest
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
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