Private Sub Workbook_Open()
Dim objSheet As Object

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = No

For each objSheet in Me.She*ets
objSheet.Unprotect
Next objSheet


(do stuff here)


For each objSheet in Me.She*ets
objSheet.Protect
Next objSheet

Application.ScreenUpdating = Yes
Application.Calculation = xlCalculationAutomatic

End Sub

This changed code handles objects more consistently

DM Unseen