Sub ImportSheet() Dim fileName fileName = Application.GetOpenFilename("Other Workbook (*.xl*),*.xl*") If fileName = "False" Then MsgBox "You have not selected a file. Please try again." GoTo QuitSub End If Workbooks.Open fileName:=fileName QuitSub: End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.