Bom dia amigos,

Sou iniciante em macros no excel e estou apanhando um pouco para criar esta macro para agrupar e desagrupar uma planilhada protegida.

Acontece que, ao usar a planilha em meu computador, a macro roda normalmente. Porém, ao compartilha-la na rede, recebo o seguinte erro:
"Erro em tempo de execução ' 1004':
Erro de definição de aplicativo ou de definição de objeto".

Gostaria de saber também, se é possível, eliminar esta parte em Case (única solução que encontrei), e fazer a macro funcionar em todas as planilhas da minha pasta de trabalho.

A macro que estou utilizando é a seguinte:

Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In Worksheets

Select Case UCase(ws.Name)
Case "05-01", "06-01", "07-01", "08-01", "09-01", "12-01", "13-01", "14-01", "15-01", "16-01", "19-01", "20-01", "21-01", "22-01", "25-01", "26-01", "27-01", "28-01", "29-01", "30-01"
With ws
.Protect Password:="teste", UserInterfaceOnly:=True, AllowInsertingRows:=True
.EnableOutlining = True
End With
Case Else
End Select

Next ws

End Sub

Muito obrigado pela ajuda.

Grande abraço.