Sub Get_Data() Dim wbk As Workbook Dim destWbk As Workbook Set destWbk = ActiveWorkbook FileToOpen = Application.GetOpenFilename _ (Title:="Please choose the previous file to import", _ FileFilter:="Excel Files *.xls (*.xls),") '' If FileToOpen = False Then MsgBox "No file specified.", vbExclamation, "Duh!!!" Exit Sub Else Set wbk = Workbooks.Open(FileToOpen) End If ' Need to copy the source and paste it End Sub
|Delete all words in cell more than 5 words||7||48|
|How to change the following 2nd comma in each line to a tilde (~) in Excel 2016?||6||45|
|Dynamic Filter ?||4||22|
|VBA EXCEL 2013, 2016 for Auto Sort upon fill in.||4||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!