Have user select file to open

[GeneralShamu]

I am writing code that requires data from another workbook. Instead of hardcoding the directory and filename (which changes daily), how can I have the code prompt the user to do this for me?

I want to open the file with:
links updated
read-only

Also, is there a way to have an initial directory that appears so the user need not go through a dozen directories every time to get to the file?

 

[jim may]

This may help...

Sub test()
Dim SaveDriveDir As String
Dim TheFileName As Variant
SaveDriveDir = CurDir
ChDrive "C"
ChDir "C:\Users\James\Documents\ExcelChest"
TheFileName = Application.GetOpenFilename(FileFilter:="Excel Files *.xls* (*.xls*),")

' "your code here"

ChDrive SaveDriveDir
ChDir SaveDriveDir
End Sub

 

[GeneralShamu]

This may help...

TheFileName = Application.GetOpenFilename(FileFilter:="Excel Files *.xls* (*.xls*),")

Thank you; that was the bit I needed!

 

[GeneralShamu]

How can I get the box that opens to prompt the user for a file to say something in the top left telling them what to do?

In my code for prompting the user to select a directory there is a line:
.Title = "..."