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

--
HTH...

Jim Thomlinson


"Kou Vang" wrote:

One more thing, if I wanted to select everything above C, then would I use an
autofill to do this?

"Jim Thomlinson" wrote:

C.Entirerow.Select
--
HTH...

Jim Thomlinson


"Kou Vang" wrote:

How do I select the entire row of C after I find and select it? Thanks

Set C = .Find("Date", LookIn:=xlValues)
If C Is Nothing Then
MsgBox "Not Found!"
Else
C.Select