Snasui Excel Forum

Code: Select all

Sub Sample()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim Ret1, Ret2


    Set wb1 = ActiveWorkbook

    
    Ret1 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", _
    , "Please select first file")
    If Ret1 = False Then Exit Sub

    Set wb2 = Workbooks.Open(Ret1)
    wb2.Sheets("SheetSourceName").Range("B6:EJ6").Copy wb1.Sheets("SheetTargetName").Range("B" & Rows.Count).Offset(1, 0)
    wb2.Close savechanges:=False
    


    Set wb2 = Nothing
    Set wb1 = Nothing
    
End Sub