Macro to open File Explorer and have me choose which document to open

[tonywatsonhelp]

Hi Everyone,

So I need i macro to do the following

when run open the file explorer window,
Goto the folder in activesheet D12,
and show me all XLSX docs.
ask me to choose file to open
If i choose a file it opens that document and saves the name of the document in activesheet D20

if its closed without choosing or cancel is pressed I get a message saying No Document chosen.

please help if yoiu can

Thanks

Tony

 

[Anthony47]

For example:

Dim WriteTo As Worksheet

Set WriteTo = ThisWorkbook.ActiveSheet
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ActiveSheet.Ramge("D12").Value
    .Title = "Select Folder and File"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Excel", "*.xlsx", 1   '<<< Enabled extension(s)
    .Show
    If .SelectedItems.Count = 0 Then
         MsgBox ("No file selected, the procedure is aborted")
         Exit Sub
    End If
    FullNome = .SelectedItems(1)      'Directory + Name
End With
Workbooks.Open FullNome
WriteTo.Range("D20").Value = ActiveWorkbook.Name

Bye

 

[tonywatsonhelp]

Thank you Anthony I'll give this a go
Tony