Existing VBA that needs loop adding to the code.

Good Afternoon

I have the existing code below and it is carrying out its main function (to hilight #N/A errors) and give the user option to correct it, but what I am missing is the abbility for it to move on to the next error once the previous one has been corrected and so on untill there are no more left to correct.

Heres the code I am using

Sub FindErrors()
    Dim rError As Range
    On Error Resume Next
    For Each ws In Sheets
        Set rError = Intersect(ws.UsedRange, ws.UsedRange.SpecialCells(xlCellTypeFormulas, 16))
        If Not rError Is Nothing Then
            If MsgBox("Names appear in " & ws.Name & " that have not been added before, Add them them now?", vbYesNo) = vbYes Then
                ws.Activate
                rError(1).Activate
               Exit Sub
            End If
        End If
    Next ws
    
    
End Sub