range.calculate gives Run-time error '1004'

[Gavona]

Error Message: Run-time error '1004': Unable to set the Hidden property of the Range task

The above error is confusing me. The code concerned is:

With ThisWorkbook.Worksheets("CreateLog").Range("Progress")
[highlight red] .Calculate[/highlight]
.Offset(.Value, 1) = Round((Timer - start) / 60, 2) 'timer=secs since midnight
.Offset(.Value, 0) = Application.StatusBar
End With

This same subroutine has been called and functioned as expected 200 times within the procedure. I have the watch window open and this shows:
ThisWorkbook.Worksheets("CreateLog").ProtectContents False
Application.Iteration False
Application.EnableEvents False


Range("Progress") is a single cell, is not locked and contains the formula =COUNTA(A2:A199803)+2


Gavin

 

[SkipVought]

Gavin,

Did you ever get this resolved?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}