Este fórum está sendo desativado

[MarceloAdriano]

Olá
Gostaria de saber, como posso tratar o erro da Exibição da planilha (Visible) e ocultação da mesma, na forma (VeryHidden), isto é, quando o Nome da planilha não existir e for invalido - evitar a notificação de erro e enviar ao usuário uma notificação do erro encontrado, e tambémse não haver erro - notificar como "Procedimento realizado com sucesso", Através da MSGBOX!
Segue o códido, o print do erro e a planilha em questãoi
Desde já agradeço


Código:
Dim P As String

'Dim P as String = Nome da planilha
'-----------------------------------

Sub OcultarPlanilha(P As Worksheet)
'Sub Procedimento
'P = Parâmentro do tipo planilha

P.Visible = xlSheetVeryHidden ' xlSheethidden = Ocultar planilha


End Sub

Sub ReexibirPlanilha(P As Worksheet)
'Sub Procedimento
'P = Parâmentro do tipo planilha

P.Visible = xlSheetVisible ' xlSheetVIsible = Reexibir planilha
' Sheets("2").Visible = True

End Sub


Sub Ocultar()

P = InputBox("Nome da Planilha", "Ocultar Planilha")
' OcultarPlanilha Sheets(P)
Call OcultarPlanilha(Sheets(P))
End Sub

Sub Reexibir()

P = InputBox("Nome da Planilha", "Reexibir Planilha")
' OcultarPlanilha Sheets(P)
Call ReexibirPlanilha(Sheets(P))
End Sub

Private Sub CommandButton1_Click()

End Sub

[Kledison]

Boa noite,

Marcelo, estou enviando um exemplo que eu uso aqui, ele lista o nome das planilhas, verifica se ajuda.

Att

[MarceloAdriano]

Olá Kledison
Obrigado pela ideia! Mas busco ainda uma solução para tratar os erros mencionados

Grato,
Marcelo Adriano