Run-time error '1004': Application-defined or object-defined error.

[Ruckus]

The following code colours a worksheet tab if a value is entered anywhere on the sheet. It works well until I attempt to share the workbook, then I receive "Run-time error '1004': Application-defined or object-defined error.".

Anyone see why?

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Tab.Color = xlNone
If WorksheetFunction.CountA(Me.Cells) <> "0" Then Me.Tab.Color = RGB(255, 0, 0)
End Sub

 

[Hermanito]

When setting a workbook to Shared, there are a number of actions that are no longer allowed. My guess would be that changing tab colors is one of those things.