Sorry my mistake

change the code in .FindNext

            End If
            Set fRng = .FindNext(fRng)
        Loop While Not fRng Is Nothing And fRng.Row <> eRec