Excel delete columns which headers contain "offer"

Sub remove_columns()
For i = ActiveSheet.Columns.Count To 1 Step -1
If InStr(1, Cells(1, i), "offer") Then Columns(i).EntireColumn.Delete
Next i
End Sub