Sub DeleteColumns()
Dim rng As Range
Set rng = Rows(1).Find(What:="EAS", _
After:=Range("A1"), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
Do
rng.EntireColumn.Delete
Set rng = Rows(1).FindNext(Range("A1"))
Loop While Not rng Is Nothing
End If
End Sub

--
Regards,
Tom Ogilvy


"loay" wrote in message
...

The first raw of the sheet will contain the EAS1, EAS2 and EAS3....and
so on as a header 10% of the columns have this header and the hole
column must deleted

Thanks


--
loay
------------------------------------------------------------------------
loay's Profile:
http://www.excelforum.com/member.php...o&userid=33721
View this thread: http://www.excelforum.com/showthread...hreadid=535043