Hi hometech,

Welcome to ExcelFox !!

arrange the lines this way

Code:
fd.InitialFileName = "c:\"
fd.Title = "Choose Project"
fd.InitialView = msoFileDialogViewList
fd.Filters.Clear
fd.Filters.Add "MS Project Files", "*.mpp"
fd.FilterIndex = 1
fd.ButtonName = "Choose this file"
FileChosen = fd.Show