Fejl i denne vab kode

Hej

Jeg har siddet og rodet lidt med denne vba kode. Men kan ikke finde ud af hvor fejlen opstår. Synes at alle betingelser er opfyldt.

Håber at der er en der kan gennemskue hvad jeg har lavet af fejl.

Der hvor det går galt er at den mener at der er noget i vejen med workbooks.open linien.

Det skal lige siges at jeg har et ark magen til på en anden fan (sheets 1) i sammen workbook. ved ikke om det er der det går galt.

Det koden skal er at ud fra et navn og et nummer, skulle kunne åbne den excel fil med det navn.

Koden er :

Dim ryknr
    Dim pers
ryknr = ActiveWorkbook.Sheets(2).Cells(8, 4)  'skal tilpasses
  pers = ActiveWorkbook.Sheets(2).Cells(8, 2)

'------------------------ hent gemt faktura ved valgt navn ---------------------------------------------------------------


Private Sub CommandButton2_Click()



Workbooks.Open "c:\Faktura\excelfakturaDB\" & pers & "\faktura_" & ryknr & ".xls" ' ret til den fil du åbner ved genindlæsning af faktura
 

Range("A21:C45").Copy ' kopierer fra ny mappe
ActiveWorkbook.Close False ' lukker ny mappe

    Range("A21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.Run "Backup"

End Sub

Navnet på personen er i celle b8 og nummeret i celle d8.

Hilsen Kenneth

P.S. Kan evt. sende et skærm dump hvis i vil se hvirdan det ser ud i virkeligheden.