Error 91

[sweeneytime]

Hi guys,

I am getting an "error 91 object variable not set". I have tried a few things and google but no joy. I just want the operation to finish so I can start another one. ps The symbol I'm searching for doesn't paste into here, box with a question mark in it.

Anybody got some idea's??

Thanks,
Alan

Sub FindEnd()

    Dim Last As Long
    Last = Range("A" & Rows.Count).End(xlUp).Row
    
    
    For Each cell In Range("A1:A" & Last).Cells

        If Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate Then
        
            ActiveCell.Rows("1:19").EntireRow.Select
            Selection.Delete Shift:=xlUp
        Else
        End If
    Next cell
    
End Sub

When the error strikes it highlights

If Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate Then

 

[John Davis]

Not sure about what's causing the error, but I tried to interpret your code (and I may be wrong). I'm wondering if this could be of use?

Sub sweeneytime()

    Dim Last As Long
    Dim rcell As Range
    
    
    Last = Range("A" & Rows.Count).End(xlUp).Row
    
      
    For Each rcell In Range("A1:A" & Last)
    
        If rcell.Text = "000" Then

            rcell.Resize(19).EntireRow.Delete Shift:=xlUp

        End If
    
    Next rcell
    
End Sub

 

[sweeneytime]

Hi John,

You are correct! Works perfectly. A nice shorter piece of code too that I will use again and again.

Cheers,
Alan

 

[John Davis]

I'm glad to hear it worked for you. Thanks for the feedback.