Deleting Columns Macro

[jonrs]

Hello!
I am trying to get a macro to delete all columns with a particular word in the first row. In this case that word is "Label".
I am new to macro's and not real sure how to input the data so a little help on that part would be great to!!
Thanks alot
jonrs

 

[Sahak]

Hi Jonrs,

Try this,

Sub DelClmns()
    Dim r As Range
    For Each r In Range("A1:IV1")
        If r.Value = "Label" Then r.EntireColumn.Delete
    Next r
End Sub

 

[jmthompson]

Do you have to start the loop from the end, like with deleting rows, so that the code doesn't skip columns?

 

[jonrs]

Thanks!
Can you tell me where to put this information with Excel?
Thanks again,
jonrs

 

[Dryver14]

I've just tried this and it does skip columns like rows

 

[jonrs]

I think I found the spot...Created a Macro and just copied and pasted it into the Description field.
When I run it, it does something, but the columns are not deleted.
Maybe a slight change is needed??
Thanks again!! Getting there!!!

 

[jonrs]

But need it to delete the whole column....

 

[MrKowz]

Try this. To use it, press alt+F11 to open the VBA editor. Then go to Insert>Module. Paste this code in the module window that opens on the right side. Then to run it, while in your worksheet, press alt+F8 to open the Run Macro window, and choose it from the list:

Public Sub DeleteColumns()
Dim i   As Long, _
    LC  As Long
LC = Cells(1, Columns.Count).End(xlToLeft).column
Application.ScreenUpdating = False
For i = LC To 1 Step -1
    If Cells(1, i).Value = "Label" Then Columns(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[jonrs]

That one DID IT!!! THANKS!!!
I have been trying to get that to work for a week now!!!