Code to look for word and delete entire column

[Dazzawm]

Hi I need a code to look for the word Sunday which will always be in row 4 and delete the entire column please. Thanks.

 

[Michael M]

What column will "Sunday" be in ??

 

[mirabeau]

Would you like to try this?

Sub testcode()
Dim e
For Each e In Cells.Rows(4).Cells
If InStr(e, "Sunday") > 0 Then
    Cells.Columns(e.Column).Delete
    Exit For
End If
Next e
End Sub

 

[Dazzawm]

It only deletes one column at a time. It doesnt loop and do all of the columns with Sunday in row 4.

 

[JackDanIce]

Try:

Sub testcode()
Dim e As Long
Application.ScreenUpdating = False
For e = 1 To Cells(4, Columns.Count).End(xlToLeft).Column
  If InStr(Cells(4, e), "Sunday") > 0 Then
    Columns(e).Delete
    e = e - 1
  End If
Next e
Application.ScreenUpdating = True
End Sub

 

[mirabeau]

Sub testcode2()
Dim i As Integer
For i = Cells.Columns.Count To 1 Step -1
If InStr(Cells(4, i), "Sunday") > 0 Then
    Cells.Columns(i).Delete
End If
Next i
End Sub

 

[Dazzawm]

Thats it, thanks.