Excel comando para ocultar planilha

[Wilken Perez Filho]

Bom dia,

 

Amigos, estou precisando de uma ajuda.

 

Estou em fase de conclusão da minha planilha de cartões.

 

A questão é o seguinte, dias atrás o fórum me ajudou a ocultar a planilha.

 

Porém, estou numa situação mais complexa... Por exemplo, eu preciso ocultar a planilha clicando no botão de fechar "X" e também clicando no botão de cancelar.

 

Esse é o código que eu fiz:

Citação

Sub CommandButton2_Click()
    Sheets("CARTÃOCIDADÃO").Visible = True
  Pesquisa = InputBox("Informe o nome do cliente ou o número do benefício", "Pesquisar cartão do cliente")
  If Pesquisa = "" Then Exit Sub
  Set plan = Sheets("CARTÃOCIDADÃO")
    Set x = plan.Cells.Find(what:=Pesquisa)
    If Not x Is Nothing Then
      firstAddress = x.Address
      Do
        plan.Select
        x.Select
        MsgBox "Texto encontrado na célula " & x.Address & Chr(10) & "Planilha: " & plan.Name & _
         Chr(10) & "Texto: " & x.Text
        Set x = plan.Cells.FindNext(x)
      Loop While Not x Is Nothing And x.Address <> firstAddress
    Else
      MsgBox "Cliente não encontrado na planilha " & plan.Name
      Sheets("CARTÃOCIDADÃO").Visible = False
       ActiveWorkbook.Save
    End If
End Sub

 

 

A questão é: Desejo ocultar a planilha quando pressionar em "CANCELAR" ou FECHAR "X".

 

Me ajudem, por favor!

 

Abraços!