Macro para eliminar columnas

Sub OcultaColumnasVacias
For i = 3 To 9 '3= columna C, 9=columna I
If ActiveSheet.Cells(1,i) = "" Then
ActiveSheet.Cells(1,i).Select
Selection.EntireColumn.Delete
End If
Next i
End Sub


Saludos!

escribió en el mensaje
news:
Buen día,

Tengo columnas de la C a la I de las cuales quiero eliminar las que en
la primer celda no haya datos.

Me pueden, por favor, ayudar ?

Un saludo.
Jorge