Snasui Excel Forum

Code: Select all

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