Oprettelse af macro

Måske følgende, der giver mulighed for at vælge mappe og fil:

Sub vælgFil()
Dim filename As String
    filename = Application.GetOpenFilename
    Application.Workbooks.Open (filename)
End Sub

Ellers kan der programmeres en Userform (dialogboks), der viser en bestemt mappes filer..

..og så velkommen til Eksperten..

Tak for velkomst også tak for hurtig tilbagemelding, desværre svarer jeg først nu.
Jeg må tilstå at jeg ikke er bruger på så højt niveau at jeg kan sætte den tråd ind. Jeg vedhæfter klip fra den Macro som jeg har oprettet ved indspilning. Kan jeg få dig til at fortælle mig hvor jeg skal begynde og hvor jeg skal stoppe.
Sub PDF()
'
' PDF Makro
'
' Genvejstast:Ctrl+h
'
    ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Users\User\Documents\AMG-bogholderi\130115 hafele £ 28,14.pdf", Link:= _
        False, DisplayAsIcon:=False).Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 94.5
    Selection.ShapeRange.Width = 66.75
End Sub

På forhånd tak.
Ole

Er du kommet længere med det?

Glem venligst indlæg #1 - det kan ikke anvendes i denne situation.

Undskyld den sene tilbagemelding. Ja, jeg er kommet længere med løsningen som virker, men desværre kan modtageren ikke læse mine pdf dokumenter, så jeg har fundet en nærmere løsning gennem Adobe professionel.
Tak for hjælpen.
Ole Pries

Selv tak - det var så lidt.