VBA user selects file to open

VBA to prompt user to select a file to open.  Window prompt opens specific folder path designated in ChDir path but first you have to change to the correct drive (ChDrive).

UserSelectFileToOpen (70 downloads)

VBA user selects file to open 

'Ask user to open file - auto opens certain directory path'
ChDrive "C:\"
ChDir "C:\Users\dgreg"
MsgBox "Choose file to open"
FileToOpen = Application.GetOpenFilename(Title:="Choose file to open")

If FileToOpen = False Then
   MsgBox "No File Selected" 
   Exit Sub
Else
   Workbooks.Open Filename:=FileToOpen
End If