Object Error 424

  • Thread starter Thread starter Sekar
  • Start date Start date
S

Sekar

Hello there,
I want to find a text on a worksheets and delete thi
rows. But when I try the code below I have an error message
Run time error 424. It seems the code missed the address of th
row/column after it is deleted. Can some solve
this for me. Thanks.

sekar = "[-----]"

Worksheets("LOG FILE").Activate

With Worksheets("LOG FILE").Range("A1:A9999")

Set fc = Worksheets("LOG FILE").Columns("A").Find(what:=sekar)

If Not fc Is Nothing Then
firstaddress = fc.Address
Do
Set fc = Worksheets("LO
FILE").Columns("A").FindNext(after:=fc)
fc.Select
Selection.End(xlToLeft).Select
Selection.Delete Shift:=xlUp
Loop While Not fc Is Nothing And fc.Address <> firstaddress
End If

End Wit
 
Hi Sekar,

Try this

sekar = "[-----]"
Worksheets("LOG FILE").Activate

With Worksheets("LOG FILE").Range("A1:A9999")

Set fc = Worksheets("LOG FILE").Columns("A").Find(what:=sekar)

If Not fc Is Nothing Then
firstaddress = fc.Address
prevfc = fc.Address
Do
Set fc = Worksheets("LOG
FILE").Columns("A").FindNext(after:=Range(prevfc))
fEnded = fc Is Nothing
If Not fEnded Then
prevfc = fc.Address
fc.End(xlToLeft).Delete Shift:=xlUp
End If
Loop Until fEnded
End If

End With

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top