Function BrowseFile() As String


Dim obOpenDialog As FileDialog
Set obOpenDialog = Application.FileDialog(msoFileDialogOpen)
While obOpenDialog.Filters.Count 0
obOpenDialog.Filters.Delete
Wend
With obOpenDialog
.InitialFileName = "C:\"
.AllowMultiSelect = False
.Filters.Add "MS Access database", "*.mdb", 1
.Filters.Add "All files", "*.*", 2
.Show

If .SelectedItems.Count 0
BrowseFile = .SelectedItems(1)

else
BrowseFile = ""
end if
End With

End Function


Papa Waigo wrote:
I am using the macro below to retreives the path and filename of a file
that I select from the File Open dialog box

How can I tweak this macro so that the dialog box always opens in the
C:\Employee Performance\ directory?

Any help would be much appreciatted


Sub GetFileName()
Dim sFileName As String

sFileName = Application.GetOpenFilename
If sFileName = "False" Then Exit Sub
ThisWorkbook.Activate
Range("a1").Value = sFileName
End Sub