VBA to Delete columns

[jmazorra]

I have a very large spreadsheet (Market Data) it has about 100 columns, but I only use about 6 of those columns. Is there a VBA that will allow me to keep only the column headers I want and delete the rest?

I would like to keep column headers mkt data 10th, ee info, position, market ratio. Everything else is trash and can be deleted.

I wrote a macro but it goes by column number and not header name, so that did not work for me.

Thanks

 

[b.downey]

This should work for you

Sub RemoveCol()
Dim ColNo As Integer
Dim rng As Range

Set rng = ThisWorkbook.Sheets(1).UsedRange

For ColNo = rng.Columns.Count To 1 Step -1
Select Case rng.Cells(1, ColNo)
Case "mkt data 10th", "ee info", "position", "market ratio"
'Take No Action
Case Else 'Delete the Column
rng.Columns(ColNo).Delete
End Select
Next ColNo

End Sub

 

[jmazorra]

Thank you, this should definetily work

 

[Peter_SSs]

Please do not post the same question multiple times. Questions of a duplicate nature will be locked or deleted, per the Posting Rules (especially points 21-23).

It seems that you have moved on from here so any bumps, clarifications, or follow-ups should be posted to the linked thread.