Windows("workbook1.xls").ActivateSheets("Sheet4").SelectRange("A1:D10").SelectSelection.CopyWindows("workbook2.xls").ActivateSheets("Sheet4").SelectRange("A1").SelectSelection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _