We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim OpenFileName As Variant Dim wBook As Workbook Dim SampleReg As Workbook On Error Resume Next ' if it stuffs out go to the next step ActiveWorkbook = SampleReg OpenFileName = Application.GetOpenFilename() 'Opens the File Dialog If OpenFileName = False Then Exit Sub 'If no file selected stop Workbooks.Open (OpenFileName) 'works OpenFileName.Activate Databook = OpenFileName.Name Range("P6") = OpenFileName Workbooks(Databook).Activate
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.