Boa tarde Edvan

Veja se este tópico de outro fórum pode te ajudar:

http://social.msdn.microsoft.com/Forums ... 2298b176a2

Um abraço

era exatamente oque estava precisando!!

Acrescentei no código a função de reexibir as colunas quando o intervalo selecionado for diferente de "0".

segue abaixo o código:

Sub OcultarColunas()

Dim Referencia As Range
Dim c As Integer

'Abre um inputbox para que informe o intervalo de referência para testar o valor das colunas
'Pode ser digitado diretamente, ou feita a seleção na planilha
Set Referencia = Application.InputBox(Prompt:="Informe o intervalo de referência", Title:="Ocultar colunas", Type:=8)

'Loop para todas as colunas do intervalo
For c = 1 To Referencia.Columns.Count
'Testa as células da primeira linha do intervalo informado
'Se o conteúdo for zero a coluna é ocultada
If Referencia.Cells(1, c) = 0 Then Referencia.Cells(1, c).EntireColumn.Hidden = True
If Referencia.Cells(1, c) <> 0 Then Referencia.Cells(1, c).EntireColumn.Hidden = False
Next c

End Sub

Obrigado!