Makroen virker ikke!!

Jeg har to næsten ”ENS” Makroer som er placeret i dels filen 52SIM2002 og dels i filen OpgørelseMASTER.

I Filen 52SIM2002 virker opslaget perfekt her er Markoen:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim ss As String
  On Error GoTo fejl
    If Not Intersect(Target, Range("c8:c200")) Is Nothing Then
    Cancel = True
    ss = "'" & Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\"))
    ss = ss & "[JOBnrMed_Tekst.xls]Sheet1'!$A$3:$B$2500,2,false"
    ss = "=vlookup(" & Target.Address & "," & ss & ")"
    [aa1].Formula = ss
    If IsError([aa1]) Then MsgBox Target.Value & vbCr & ("Ingen hjælpetekst") Else MsgBox Target.Value & vbCr & [aa1].Value
    [aa1].Clear
  End If
  Exit Sub
fejl:
  MsgBox ("der er sket en fejl")
End Sub

I Filen OpgørelseMASTER virker opslaget IKKE, her er Markoen:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim ss As String
  On Error GoTo fejl
    If Not Intersect(Target, Range("D8:D27")) Is Nothing Then
    Cancel = True
    ss = "'" & Left(ThisWorkbook.path, InStrRev(ThisWorkbook.path, "\"))
    ss = ss & "[JOBnrMed_Tekst.xls]Sheet1'!$A$3:$B$2500,2,false"
    ss = "=vlookup(" & Target.Address & "," & ss & ")"
    [aa1].Formula = ss
    If IsError([aa1]) Then MsgBox Target.Value & vbCr & ("Ingen hjælpetekst") Else MsgBox Target.Value & vbCr & [aa1].Value
    [aa1].Clear
  End If
  Exit Sub
fejl:
  MsgBox ("der er sket en fejl")
End Sub

Begge filer lægger et niveau under den fil de slår op i.

Er der nogen der kan hjælpe, nu har jeg prøvet i dage at finde ”fejlen”.
Mfj1