Hi, i was wondering if anyone know then code to check is a sheet has the
calculation status set to xlDone.

I dont want the application.CalculationStatus - its for the whole workbook.
I need it for a sheet only.

thanks in advance.

Hi,

I'm not sure that you're using xl2003 or xl2007 ?,

but maybe this one is the trigger:
Dim Xstat
Private Sub Worksheet_Activate()
Xstat = Application.CalculationStatus
Application.CalculationStatus = xlDone
End Sub

Private Sub Worksheet_Deactivate()
Application.CalculationStatus = Xstat
End Sub

place both sub in worksheet event module.

--
Regards,

Halim



"shel269" wrote:

Hi, i was wondering if anyone know then code to check is a sheet has the
calculation status set to xlDone.

I dont want the application.CalculationStatus - its for the whole workbook.
I need it for a sheet only.

thanks in advance.

But actualy I never found that property in my xl 2003, I just guess that's a
readonly property of an xl that running, maybe xl doesnt store that constant
as a registry entry or other database...

So, we never found that property that readonly.
--
Regards,

Halim



"Halim" wrote:

Hi,

I'm not sure that you're using xl2003 or xl2007 ?,

but maybe this one is the trigger:
Dim Xstat
Private Sub Worksheet_Activate()
Xstat = Application.CalculationStatus
Application.CalculationStatus = xlDone
End Sub

Private Sub Worksheet_Deactivate()
Application.CalculationStatus = Xstat
End Sub

place both sub in worksheet event module.

--
Regards,

Halim



"shel269" wrote:

Hi, i was wondering if anyone know then code to check is a sheet has the
calculation status set to xlDone.

I dont want the application.CalculationStatus - its for the whole workbook.
I need it for a sheet only.

thanks in advance.