Snasui Excel Forum

Code: Select all

'Other code
    For Each strName In strRange
        strFileName = wbMain.Sheets(1).Range(strName)
        Set TargetWb = Workbooks.Open(strPath & strFileName)
    
        Set rSource = Union(wbMain.Sheets(1).Range(strName).Offset(-11, -1).Resize(1, 3), _
            wbMain.Sheets(1).Range(strName).Offset(8, -1).Resize(7, 3))
       
        rSource.Copy

        TargetWb.Sheets(1).Range("a2").PasteSpecial xlPasteValues

    Next strName
'Other code