Using Application.GetOpenFilename to replace links

Hi There.

I have the following code which copies and pastes a range into a custom cell selected by the user.

It then attempts to change the links in that copied range (Via the Application.GetOpenFilename) to a file specified by the user.

It is however hitting a bug.

Any insight as to how to fix this would be most appreciated.

Thanks

Please Login or Register  to view this content.

This link gives fairly comprehensive coverage of Application.GetOpenFilename.

https://www.xelplus.com/excel-vba-getopenfilename/

Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook as Workbook
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).Range("A1:E20").Copy
ThisWorkbook.Worksheets("SelectFile").Range("A10").PasteSpecial xlPasteValues
OpenBook.Close False
End If
End Sub