deleting columns with vba?

[pontiff]

Hello again,
Is there a function or vba script that could delete ( not just clear) a column if the formula in the top cell of that column returned a value of 0.... then apply this rule to every column on the worksheet?

Hope i've managed to explain this,
Pontiff

 

[WinteE]

Use this

For Each c in Range("A1:Z1")
  If c.Value = 0 Then
    c.EntireColumn.Delete
  End If
Next c

 

[VoG]

Try this

Sub DelCol()
Dim LC As Long, i As Long
LC = Cells(1, Columns.Count).End(xlToLeft).Column
For i = LC To 1 Step -1
    If Cells(1, i).Value = 0 Then Columns(i).Delete
Next i
End Sub

 

[pontiff]

Excellent! Worked perfectly, thanks so much.!