How do I make a cell equal to the file directory of a selected file?

[DouglasWicker]

Hi there,

I am looking for a way to paste the directory of a file into a cell of an open workbook. I need the ability to open file explorer and choose the file to copy the directory from.

Thanks,

D

 

[DouglasWicker]

Hi there,

I am looking for a way to paste the directory of a file into a cell of an open workbook. I need the ability to open file explorer and choose the file to copy the directory from.

Thanks,

D

For those that might be interested, this works;

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFilePicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
    Sheets("Home").Activate
    Range("L3").Value = sItem
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function