Run Time Error '91' Object Variable or block variable not set

I am writing a code for my job but I have hit a road block. I need to write a macro that checks sheet 1 for a specific number then if that number is not found then it searches three other sheets and if the number is found it deletes it. My problem is that I get an error (Run Time Error '91' Object Variable or block variable not set) when i run the program for a number that is not found on one of the subsequent sheets. Ive been working on this for days and I cant figure it out. Heres the code with the number replaced with stars

Sub Macro2()
'
' Macro2 Macro
'

'
    Sheets("Master").Select
    If Range("C1").Value = "*********" Then
    
    Else
    Sheets("ERT").Select
    If Cells.Find(What:="***********", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate = True Then
    ActiveCell.ClearContents
    End If
    Sheets("FT Phone").Select
    If Cells.Find(What:="**********", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate = True Then
    ActiveCell.ClearContents
    End If
    Sheets("Staff Does Not Report").Select
    If Cells.Find(What:="**********", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate = True Then
    ActiveCell.ClearContents
    End If
End If

End Sub

When posting code please use code brackets. To do this, highlight your code and press the # button in the toolbar.

What error are you getting?

Thanks Solus.

leao67,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. In order to put code tags, either type [CODE] before your code and [/CODE] at the end of it, OR you can highlight your code and click the # icon at the top of your post window.

Sub Macro2()
'
' Macro2 Macro
'

'
   Dim rFound as Excel.Range
    Sheets("Master").Select
    If Range("C1").Value = "*********" Then
    
    Else
    Sheets("ERT").Select
    Set rFound = Cells.Find(What:="***********", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
   if not rfound is nothing then rFound.ClearContents
    Sheets("FT Phone").Select
    Set rFound = Cells.Find(What:="**********", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
   if not rfound is nothing then rFound.ClearContents
    Sheets("Staff Does Not Report").Select
    Set rFound =  Cells.Find(What:="**********", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
   if not rfound is nothing then rFound.ClearContents
End If

End Sub

You don't have a statement for then

    Sheets("Master").Select
    If Range("C1").Value = "*********" Then
    
    Else
    Sheets("ERT").Select