Folder picker - list what was chosen?

[TheWennerWoman]

Hello, I am trying to populate a cell (named range) with what the user has selected but I don't seem to be able to get this working.

Any pointers appreciated as always.

Sub status_folder()
Dim fldr As FileDialog
Dim sItem As String
Dim fileSaveName As String
Dim file_4 As String


Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a folder to save Policy Status file to"
        .AllowMultiSelect = False
        .InitialFileName = "O:\Finance\"
        If .Show <> -1 Then Range("file_4").Value = .SelectedItems(1)

        sItem = .SelectedItems(1)
        GoTo NextCode
        'End If
    End With
NextCode:
        Set fldr = Nothing
          
 
    
file_4 = Range("file_4").Value

End Sub

 

[TheWennerWoman]

Please ignore, I managed to get it working

 

[RoryA]

Could you post the solution, in case it helps others, please? (you can then mark it as the answer)

 

[TheWennerWoman]

Could you post the solution, in case it helps others, please? (you can then mark it as the answer)

Sub SelectFolder()

Dim FldrPicker As FileDialog
Dim myFolder As String


'Have User Select Folder to Save to with Dialog Box
  Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)

  With FldrPicker
    .Title = "Select A Target Folder"
    .AllowMultiSelect = False
    If .Show <> -1 Then Exit Sub 'Check if user clicked cancel button
    myFolder = .SelectedItems(1) & "\"
  End With
 
Range("file_4").Value = myFolder
End Sub