Hi
There are several ways you can do this - here's one:
![]()
Dim strFile As String With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = "C:\Somefolder\" 'amend as appropriate - you can leave it blank (comment out this line if desired) .AllowMultiSelect = False If .Show <> -1 Then Exit Sub strFile = .SelectedItems(1) End With MsgBox strFile
Bookmarks