identificer række og udfør en handling

Jeg har følgende kode, der skal gennemløbe et range. Når den finder et match på den indtastning jeg laver i txtdato (en userform), så skal den identificer rækken hvori matchet er, således at jeg kan udføre en handling på rækken. Gennemløbet skal fortsætte indtil der ikke er flere match.


Public Sub Loop()
    Dim rCell As Range
    Dim rCurReg As Range
 
    Set rCurReg = Sheets("testark").Range("A3").CurrentRegion
    Set rCurReg = rCurReg.Offset(1, 0).Resize (rCurReg.Rows.count - 1)
   
      For Each rCell In rCurReg.Columns(1).Cells
                   
        If rCell.Value = txtdato Then
       
             
        End If
 
        Next rCell
   
    Set rCell = Nothing
    Set rCurReg = Nothing
End Sub

hvem kan hjælpe?