help with error 1004

[fry]

I was using the following code to list certain worksheets of certain colours and all was running well until all of a sudden it stopped working and popped up with the following error...

Method 'Visible'of object '_Worksheet' failed

HELLLP anyone

Private Sub CommandButton1_Click()
Dim curWorksheet As Worksheet
For Each curWorksheet In ThisWorkbook.Worksheets
If curWorksheet.Tab.ColorIndex = 5 Then
curWorksheet.Visible = True
Else
curWorksheet.Visible = False
End If
Next
Sheets(1).Visible = True
Sheets(1).Select
End Sub

Private Sub CommandButton2_Click()
Dim curWorksheet As Worksheet
For Each curWorksheet In ThisWorkbook.Worksheets
If curWorksheet.Tab.ColorIndex = 10 Then
curWorksheet.Visible = True
Else
curWorksheet.Visible = False
End If
Next
Sheets(1).Visible = True
Sheets(1).Select
End Sub

Private Sub CommandButton3_Click()
Dim curWorksheet As Worksheet
For Each curWorksheet In ThisWorkbook.Worksheets
curWorksheet.Visible = True
Next
End Sub

Private Sub CommandButton4_Click()
Dim curWorksheet As Worksheet
For Each curWorksheet In ThisWorkbook.Worksheets
If curWorksheet.Tab.ColorIndex = 3 Then
curWorksheet.Visible = True
Else
curWorksheet.Visible = False
End If
Next
Sheets(1).Visible = True
Sheets(1).Select
End Sub

 

[fry]

I forgot to mention that when debugging the following is highlighted...

curWorksheet.Visible = False

I'm stumped cos if I put the code in another blank worksheet it works flawlessly????????

 

[fry]

I may have fixed this?

I noticed the workbook was protected and unprotected it after which it seemed to work.

Does anyone know if the protection would cause this error???