Makro virker ikke altid.

Jeg har en fil >JOBnrMed:Tekst.xls<, hvor til jeg dagligt skal overføre data fra en anden fil, i kolonne A placeres  JOBnr, i kolonne B placeres tekst, kolonne C og D placeres tre bogstaver i hver kolonne.

Mit problem er, når jeg dobbelt klikker på JOBnr på ”ugesedlen” C8:C200, vises der et skilt med ingen hjælpe tekst selv om både nr. og tekst er på plads i >JOBnrMed:Tekst.xls <??

Men går jeg ind og TASTER  JOBnr  “1234567” ind virker det, HVORFOR???

Det er følgende Makro som gør arbejdet, den er udviklet af BAK.

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$2:$D$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

Mfj1