Sammelige data i 2 xls filer

Sub Test_Åben_Sammenlign()
    Dim TestWorkbook As Workbook
    Set TestWorkbook = Nothing
    On Error Resume Next
    '("Mappe2.xlsx") <-- tilrettes
    Set TestWorkbook = Workbooks("Mappe2.xlsx")
    On Error GoTo 0

    If TestWorkbook Is Nothing Then
        MsgBox "Filen er ikke åben!"
    Else
            '("Mappe1.xlsm") og ("Mappe2.xlsx") <-- tilrettes
            If Workbooks("Mappe1.xlsm").Sheets("Ark1").Cells(1, 1).Value _
            = Workbooks("Mappe2.xlsx").Sheets("Ark1").Cells(1, 1).Value Then
            MsgBox "De er ens"
            End If
    End If
End Sub