fejlfanger i makro

jeg har en kode som henter data fra en fil til en anden.
Den henter data fra navngivne områder.
Jeg har lavet en ON ERROR RESUME NEXT, så jeg er sikker på at den altid køres igennem uanset om områderne findes eller ej.

Kan man lave en slags fejlfanger der fortæller om der har været fejl og evt. hvilke. enten ved en msg box samt evt indsætter fejlene i et område i ark2 fra a10 og ned, så man altid kan se hvilke fejl der har været.

Min kode er længere men jeg har kortet den ned for overskuelighedens skyld.

Jeg beklager igen den fettede poiontgivning, men det er hvad derer tilbage på kontoen :-)


Sub importOplysniger()

Dim fn As Variant
    ChDrive "c"
    ChDir "c:\dokumenter"
    fn = Application.GetOpenFilename("Alle filer,*.*", 1, "Vælg fil", , False)
    If TypeName(fn) = "Boolean" Then Exit Sub
    Debug.Print "Selected file: " & fn
    If MsgBox("Du har valgt at importere data fra filen:" & vbLf & vbLf & fn & vbLf & vbLf & "Er du sikker på at du vil fortsætte?", vbOKCancel, "Advarsel!" = vbOKCancel + vbDefaultButton1) Then Exit Sub

    On Error Resume Next
Dim wb As Workbook
    Set wb = Workbooks.Open(fn, True, True)
    With ThisWorkbook.Worksheets("ark1")
        ' Regnskabsår sidste år
        .Range("startdag").Formula = wb.Worksheets("ark1").Range("sidste_år_startdag").Formula
        .Range("startmd").Formula = wb.Worksheets("ak1").Range("sidste_år_startmd").Formula
        .Range("startår").Formula = wb.Worksheets("ak1").Range("sidste_år_startår").Formula
        .Range("slutdag").Formula = wb.Worksheets("ark1").Range("sidste_år_slutdag").Formula
        .Range("slutmd").Formula = wb.Worksheets("ark1").Range("sidste_år_slutmd").Formula
        .Range("slutår").Formula = wb.Worksheets("ark1").Range("sidste_år_slutår").Formula
    End With
End Sub