trying to insert/embed pdf with button

[fredderf81]

hi all, i'm running into an issue here. i am trying to show the select file window, choose a pdf, and insert it into a new sheet. i'm using this code:

Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Document1"
    Range("A1").Select
    ActiveSheet.OLEObjects.Add(Application.GetSaveAsFilename, Link:= _
        False, DisplayAsIcon:=False).Select

i am receiving an error: Run-time error: 1004 Cannot insert object.

what am i doing wrong??

thanks!

[fredderf81]

nvm!! figured it out lol...needed this instead:

Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Document1"
    Range("A1").Select
    ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.pdfxml.1", Link:=False, _
        DisplayAsIcon:=False).Activate