Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Use object variables to represent the ranges

Sub CopyRange3()     Set Rng1 = Workbooks("File1.xls").Sheets("Sheet1").range("A1")     Set Rng2 = Workbooks("File2.xls").Sheets("Sheet2").range("A1")     Rng1.Copy Rng2 End Sub