Dim rng as range

For each rng in Range("A1:EN1")
If rng.value = "alternate" then
rng.entirecolumn.delete
End if
Next rng

This assumes that your column header labels are in A1:EN1.