VBA Ocultar/Desocultar colunas utilizando mesmo botão

Question

Bom dia Galera!!

Minha duvida é a seguinte... tenho uma planilha com um botão e quero que esse botão oculta/desoculte algumas colunas da planilha quando clicado.

Por exemplo:

ao pressionar um botão oculte as colunas 4 até a 25 ("4:25"), após ocultado quando pressionado novamente desocultar os mesmos campos.

Se puderem me ajudar ficarei muito grato!

Answer 1

Jair, tente isso aqui....

Private Sub CommandButton1_Click()
    
  
  Range("D:Y").Columns.Hidden = Range("D:Y").Columns.Hidden Mod 2 + 1
  

End Sub

---

Natan

Answer 2

Ou:

Sub pMain()
  Columns("D:Y").Hidden = Not Columns("D:Y").Hidden
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br