Like this -
![]()
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