Hiii EveryONE, this my Firs post here I have problem killing me and I have to make this userform but I face this challenge i need to insert a button that will allow the user to browse and choose a PDF file this file will inserted in a cell in a sheet as an object .i try this code but it only browse and open .:


Private Sub CommandButton4_Click()

Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
With f
.Title = "Select a file..."
.InitialFileName = "t:\" '<- start in folder
.ButtonName = "Select"
.Filters.Add "PDF Files", "*.PDF", 1
.AllowMultiSelect = False
If .Show = -1 Then
Shell "cmd /c " & """" & .SelectedItems(1) & """"
End If
End With