HOw to delete columns that contain text

[kimsa]

I want to delete the column if any of the cells in row 1 contain the text alternatetitle or articletype or conferenceinformation or publisher or issue etc. I have about 40 different words. How do I write the code to do this?

 

[BobUmlas]

Put the words in a list on a separate sheet and name it "Words", then you can run this procedure:

Sub delCol()
For i = Range("XFD1").End(xlToLeft).Column To 1 Step -1
For j = 1 To Range("Words").Rows.Count
If InStr(Cells(1, i), Range("Words").Offset(j - 1, 0).Resize(1, 1).Value) > 0 Then
Columns(i).Delete
End If
Next
Next
End Sub

 

[kimsa]

Thanks, are there alternate ways to do this?