não tá faltando o nome da sub não ?

e garante que a planilha ativa seja a que tem as células q vc quer mexer...

Sub MinhaRotina()

Dim rng As Range
Set rng = Range("A:G")
If rng.EntireColumn.Hidden = True Then
rng.EntireColumn.Hidden = False
Else
rng.EntireColumn.Hidden = True
End If
'e limpe o rng sempre.... pra nao deixar sujeia na memória:
set rng = nothing
End Sub

Opa, Hora do almoço.
Valeu