I swear I tried that! But thanks again JIM!!! Once again, Access VBA is
frying my brains!
> C.Entirerow.Select
>
[quoted text clipped - 5 lines]
> > Else
> > C.Select
One more thing, if I wanted to select everything above C, then would I use an
autofill to do this?
> C.Entirerow.Select
>
[quoted text clipped - 5 lines]
> > Else
> > C.Select
Jim Thomlinson - 24 Jan 2006 21:30 GMT
Nope you don't need the autofill for that matter you do not need the select.
With ActiveSheet.Range("a1:a50")
Set C = .Find("Date", LookIn:=xlValues)
If C Is Nothing Then
MsgBox "Not Found!"
Else
activesheet.Range("A1", C).entirerow.delete

Signature
HTH...
Jim Thomlinson
> One more thing, if I wanted to select everything above C, then would I use an
> autofill to do this?
[quoted text clipped - 8 lines]
> > > Else
> > > C.Select