Object Variable or With Block Variable Not Set

[Chandresh]

Hi Team , getting error while finding and replacing macro. if the macro doesn't find some data it stops and shows the below error. could you please help me

Below is the code

Sub Findandreplace()
'
' MacroAbc
'

'
    Sheets("PeriodwiseA").Select
    Columns("B:B").Select
    Range("B48").Activate

    Selection.Find(What:="   (Face Value -5)", After:=ActiveCell, LookIn:= _
        xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate

    Selection.replace What:="   (Face Value -5)", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

    Selection.replace What:="   (Face Value -1)", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

    Selection.replace What:="   (Face Value -10)", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
   
Selection.replace What:="   (Face Value -2)", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
       
    Selection.replace What:=" (POST DEMERGER)", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
       
    Selection.replace What:=" (DEMERGED COMPANY)", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
       
End Sub

Thanks in advance

 

[RoryA]

You will get that error if the Find operation fails. I can't see any point to having it in your code so you may as well just remove it.

 

[Chandresh]

You will get that error if the Find operation fails. I can't see any point to having it in your code so you may as well just remove it.

HI i am replacing value like - (Face Value -5), (Face Value -5), (Face Value -10), (POST DEMERGER) & (DEMERGED COMPANY) with blank , please help

 

[RoryA]

I can see that, but the Find part doesn't actually alter the outcome, so it is unnecessary and you can just remove it.

 

[Chandresh]

I can see that, but the Find part doesn't actually alter the outcome, so it is unnecessary and you can just remove it.

Thanks