Copy range from one open workbook's worksheet to another.
Check to see if a workbook entitled "All_to_One...." is open.
("..." represents other miscellaneous wording).
If open, select 1st worksheet in this workbook. (Will only be one
worksheet in workbook.)
Copy this range.
Range("a4:f4").Select
Range(Selection, Selection.End(xlDown)).Select
Go to workbook entitled "Apples and oranges"
Go to sheet "blueberries"
Paste at range a4:f4.
|