Dim MainFN as String
MainFN = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", Title:="Please open the file")
If MainFN = "" Then
MsgBox "You have not selected a file."
GoTo proceed
Else
Workbooks.Open Filename:=MainFN
MainFN = ActiveWorkbook.Name
End If
Bookmarks