Error Handling in loop - go to next x

Hi,

I am trying to handle errors in my macro. The code goes down a number of rows, opens a worksheet based on that row, and copys a value from that worksheet into a cell in that row, then moves down.

On a error I'd like to

a) have the word 'error' in the cell where the value would be and
b) skip to the next row

this is the code I have so far - but this does not skip to the next x, but resumes in the middle of the code which has the effect of trying to shut down my main workbook (as the code says close workbook, at which point the secondary sheet would be open, but isn't, as the error is generally in finding the file to open.)

How can I get it to skip to next x?

Sub RV10()
'
' RV10 Macro
'
        
        Dim x As Long
        For x = 6 To 37
        On Error GoTo ErrorHandler
        Workbooks.Open Range("S" & x).Value
        Range("D191").Select
        Selection.Copy
        Windows("LB Billings Figures 2013.xls").Activate
        Range("D" & x).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Workbooks(Sheets("Details").Range("T" & x).Value).Activate
        ActiveWindow.Close
        Calculate
        Next x
        
ErrorHandler:

        Range("D" & x).Select
        ActiveCell.FormulaR1C1 = "Error"
        Resume Next
        Exit Sub
        
        End Sub

Thanks for help

The straight path through the mud would be:

Sub RV10()
'
' RV10 Macro
'
        
        Dim x As Long
        For x = 6 To 37
        On Error GoTo ErrorHandler
        Workbooks.Open Range("S" & x).Value
        Range("D191").Select
        Selection.Copy
        Windows("LB Billings Figures 2013.xls").Activate
        Range("D" & x).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Workbooks(Sheets("Details").Range("T" & x).Value).Activate
        ActiveWindow.Close
        Calculate
ResumePoint:
        Next x
        
ErrorHandler:

        Range("D" & x).Select
        ActiveCell.FormulaR1C1 = "Error"
        Resume ResumePoint
        Exit Sub
        
        End Sub

But it would be far better to test for the existence of each file before you tried to open it:

If Dir(Range("S" & x).Value) <> "" Then

Andrew, thank you

That's what I was looking for - I had the components before I think but they weren't in the right order.
I think this is the solution I want as often the error will be the file path having changed name slightly - so the value will exist but the file won't. The 'error' return will prompt user to update the value.

Only problem is, having tested this new code, is that although x = 6 to 37, it keeps going and entering 'error' thousands of lines down until excel crashed :-/

You need to move your Exit Sub Line from where it is to the line immediately above where the error handler starts...

Sub RV10()
'
' RV10 Macro
'
        
        Dim x As Long
        For x = 6 To 37
        On Error GoTo ErrorHandler
        Workbooks.Open Range("S" & x).Value
        Range("D191").Select
        Selection.Copy
        Windows("LB Billings Figures 2013.xls").Activate
        Range("D" & x).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Workbooks(Sheets("Details").Range("T" & x).Value).Activate
        ActiveWindow.Close
        Calculate
ResumePoint:
        Next x
        
       Exit Sub

ErrorHandler:

        Range("D" & x).Select
        ActiveCell.FormulaR1C1 = "Error"
        Resume ResumePoint
        
        End Sub

Thank you, works perfectly.

Norie thanks for the alternative option, though I think I will go with the other due to the value sometimes being present but incorrect.

Ah ok, thanks, I will try that too and see if one suits the process better.