Existing VBA that needs loop adding to the code.

**dave1983** · 09-06-2012, 08:11 AM

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

**patel45** · 09-06-2012, 10:30 AM

try eliminating exit sub

**dave1983** · 09-06-2012, 10:54 AM

Ah I new it would be something simple, Its been one of those days, However though it just cycles through all of them and doesn't let you change each one individually before it moves on to the next one, It is more than likely an issue with my code as It also checks every tab in the workbook but I want it to check the Raw Data tab only as all the other tabs feed from this one so it is just duplicating itself.

Thanks again for your quick response.