Planilha como argumento em subrotina

Question

Boa noite,

 

Escrevi a subrotina abaixo:

Public Sub Ocultar(Planilha As Worksheet)
    With Planilha
        .Visible = xlSheetVeryHidden
    End With
End Sub

Porém ao passar uma planilha como argumento, por exemplo: Plan1; recebo uma mensagem dizendo que: "O objeto não aceita essa propriedade ou método".

 

O que deve ser modificado na rotina acima mencionada para que funcione corretamente?

 

Obrigado.

 

Abraço

Answer 1

Public Sub Ocultar()
    With Plan1
        .Visible = xlSheetVeryHidden
    End With
End Sub

Não precisa de tanto, bastaria:

Public Sub Ocultar()
        Plan1.Visible = xlSheetVeryHidden
End Sub

 

---

jose

Answer 2

Boa noite,

 

Obrigado joséA, mas a sugestão passada é justamente o que preciso substituir pela subrotina que recebe como paramentro a planilha; o motivo da troca é que teria que escrever o um metodo para realizar as mesmas alterações, a cada planilha já existente ou nova planilha criada.

 

Um grande abraço.