Desta maneira:
Sub Teste()
Plan1.Columns("A").Hidden = True
Plan1.Columns("C").Hidden = True
End Sub
OU
Sub Teste()
Plan1.Range("A:A,C:C").EntireColumn.Hidden = True
End Sub
Para exibir basta mudar de True para False.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 29/03/2011 12:26 pm