Codigo Botão Ocultar Colunas

Dim C As Integer

For C = 2 To 12

    If Plan1.Cells(2, C).Value = "Ocultar" Then
       Plan1.Columns(C).EntireColumn.Hidden = True
    End If

Next C

Codigo botão Visualizar tudo

For C = 2 To 12

       Plan1.Columns(C).EntireColumn.Hidden = False

Next C

adGere,
Funcionou perfeitamente, muito obrigado.
Só por curiosidade, qual é a finalidade do "For C" e do "Next C"

Se trata de um LOOP...
Ele vai executar o codigo por n vezes
No caso C é uma variavel que representa a Coluna...
Ao dizer Cells(1,2) significa a celula B1, onde 1 é a linha e 2 é a coluna..

No codigo abaixo, será percorrido as colunas de 2 a 12, ou seja, de B a L.
No inicio o C vale 2, e cada vez que a execução chegar no next será somado mais um ao C... até Chegar ao 12... e sair do loop

For C = 2 To 12

If Plan1.Cells(2, C).Value = "Ocultar" Then
Plan1.Columns(C).EntireColumn.Hidden = True
End If

Next C

Entendi adGere
Muito obrigado mais uma vez.