Как перейти между блоком кода в макросе Excel?

Question

LongitudeValue:
         'Longitude Value
          C = C + 1
          SrcWkb.Worksheets("sheet1").Range("N8:P8").Copy
            DstWks1.Cells(R, C).Select
             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

FarEndSiteName:
           'Farend SIte Name
            C = C + 1
           SrcWkb.Worksheets("Sheet1").Range("A").Copy
            DstWks1.Cells(R, C).Select
             Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Возможно ли переходить между двумя блоками кода, когда ошибка возникает в блоке LongitudeValue кода, так что код возобновляется с FarEndSiteName?

Answer 1

Использование On Error Goto <Label>

Типичное использование

Sub MySub()
    Dim ...
    On Error Goto EH
    ' code...

CleanUp:
    On Error Resume Next
    ' Tidy up code...

Exit Sub
EH:
    If Err.Number = <some particular error> Then
        '  error handling code

        Resume  ' or Resume Next
    End If

    GoTo CleanUp

End Sub