Hi Dennis,

How about this then, no helper cells

Sub test()
Dim rng As Range
Dim iRow As Long
Dim i As Long

Set rng = Selection
For i = 1 To 3
iRow = Application.Match(Application.Small(rng, 1), rng, 0)
Cells(iRow, rng.Column).Delete Shift:=xlUp
Next i

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Dennis" wrote in message
m...
Thanx Bob!! That works great for for getting rid of the three lowest
entries.
What I need it to do tho is just delete the 3 entries out of the cells
they
are in and leave all the rows intact. This is a great start for me tho,
I'm
thinking I might need helper cells?

Thanx for the quick response Bob!!!

Dennis
=============


In article , "Bob Phillips"
wrote:
Hi Dennis,

Try this

Sub test()
Dim rng As Range
Dim iRow As Long
Dim i As Long

Set rng = Selection
For i = 1 To 3
iRow = Application.Match(Application.Small(rng, 1), rng, 0)
Cells(iRow, rng.Column).EntireRow.Delete
Next i

End Sub