Hello,

Im tryin to get a sub or macro that will search a selection(in
column) and if the individual cells meet a critieria I want to delet
the rows. The part Im havin trouble with is working with the selecte
area.

I wrote this one which works if I select the cells individually:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/25/04 by Enter Your Name Here
'
Dim A As String

A = ActiveCell

If A = "FEES" Then


Selection.Delete Shift:=xlUp

End If
End Sub


What do I do to make it work with a selection

--
Message posted from http://www.ExcelForum.com