Delete Column Criteria

[Flenley]

Hi,

I am trying to delete all columns that have a 99 in the first row. I have written the code below and it won't work. I am only new to the VBA game so any help would be appreciated.

Sub deletecolumn()
For Each c In Range("a1:bf1")
If c = 99 Then
Columns(c.Column).EntireColumn.Delete = True
Else
Columns(c.Column).EntireColumn.Delete = False
End If
Next
End Sub

 

[royUK]

Hi

Check out the free addin from http://www.asap-utilities.com and use the Select Menu > Conditional Row & Column Select.

 

[Emily]

Sub deletecolumn()
For Each c In Range("a1:bf1")
If c = 99 Then
Columns(c.Column).EntireColumn.Delete = True
Else
Columns(c.Column).EntireColumn.Delete = False
End If
Next
End Sub

Try this:
Sub deletecolumn()
For c = 58 To 1 Step -1
If Cells(1, c) = 99 Then Cells(1, c).EntireColumn.Delete
Next
End Sub