Assign a folder path to a variable

[Fred]

Hi
I'm trying to get the browseforfolder path assigned to a variable as I need
to use that path later in other code. Here is what I have so far:

Dim FolderName As String

Application.FileDialog(msoFileDialogFolderPicker).InitialFileName =
"H:\EFT\EFT Payments\2008\" 'Specify folder path
If Application.FileDialog(msoFileDialogFolderPicker).Show = -1 Then
Range("B40").Value = FolderName
Else
Range("B41").Value = "Don't do stuff"
End If

Where am I going wrong?

Thanks
Fred

 

[Gary''s Student]

To get the name & path from the dialog:

Sub WhichTwo()
Set x = Application.FileDialog(msoFileDialogFolderPicker)
x.Show
s = x.SelectedItems(1)
MsgBox (s)
End Sub

 

[Fred]

Thank you.
Fred

To get the name & path from the dialog:

Sub WhichTwo()
Set x = Application.FileDialog(msoFileDialogFolderPicker)
x.Show
s = x.SelectedItems(1)
MsgBox (s)
End Sub