Looping FindFormat with relative cell update

Using Excel 2007 and VBA code, I am trying to find all cells in a worksheet with a particular number format ("#,##0.00 ""INR"). For each of these cells I would like to update the cell in the column directly to the right with the value "YES". I have recorded a macro to find the correct format and modified my code to change the value of the cell and everything looks great. However, I cannot figure out the correct way to loop through the sheet once and perform the same function for each of the cells matching the format criteria. Any help is appreciated. Below is my code so far:
----

Sub Find_Format_INR()
'
' Find_Format_INR Macro
'
    

    Application.FindFormat.NumberFormat = "#,##0.00 ""INR"""
    Cells.Find(what:="", after:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , searchformat:=True).Activate
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "YES"
    ActiveCell.Offset(0, 1).Range("A1").Select
    
End Sub