Hi Roger
Maybe you want GetOpenFilename
See the VBA help also
Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String
SaveDriveDir = CurDir
MyPath = "D:\VEST\spBackup\"
ChDrive MyPath
ChDir MyPath
FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName < False Then
Set wb = Workbooks.Open(FName)
MsgBox "your code"
wb.Close
End If
ChDrive SaveDriveDir
ChDir SaveDriveDir
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Roger B." wrote in message ...
I would like a macro that opens the directory D:\VEST\spBackup so that I can see the files inside.
Any help would be greatly appreciated,
Roger