S
slcidc
My apologies I'm new at this and don't have a clue. Here is the macro
I've written:
Sub CopyCells()
Workbooks("hl57sym.xls").Sheets("Sheet1").Range("g82,g163,g244,g325,g406,g487,g568,g649,g730,g811,g892,g973,g1054,g1135,g1216,g1297,g1378,g1459,g1540,g1621,g1702,g1783,g1864,g1945,g2026,g2107,g2188,g2269,g2350,g2431").Copy_
Workbooks("TRANSFER.xls").Sheets("Sheet1").Range("b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20,b21,b22,b23,b24,b25,b26,b27,b28,b29,b30").Paste
End Sub
All I get is a userform1 and the data is not copied from one worksheet
to another. Please advise. I don't want a userform, all I want is for
the data to be copied.
Thanks
Steve
I've written:
Sub CopyCells()
Workbooks("hl57sym.xls").Sheets("Sheet1").Range("g82,g163,g244,g325,g406,g487,g568,g649,g730,g811,g892,g973,g1054,g1135,g1216,g1297,g1378,g1459,g1540,g1621,g1702,g1783,g1864,g1945,g2026,g2107,g2188,g2269,g2350,g2431").Copy_
Workbooks("TRANSFER.xls").Sheets("Sheet1").Range("b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20,b21,b22,b23,b24,b25,b26,b27,b28,b29,b30").Paste
End Sub
All I get is a userform1 and the data is not copied from one worksheet
to another. Please advise. I don't want a userform, all I want is for
the data to be copied.
Thanks
Steve