A counter and copy column problem

[andy-s]

I've some problem making a macro that will copy the information in Column B to Column C the first time, then from Column B to Column D the next time and so on.

I do know how to make the macro working by using a the Range and Cells command like:

Counter = Sheets("Sheet1").Cells(1, 1)
Range("B1:B6000").Select
Selection.Copy
Cells(1, Counter + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

BUT since the excel file grows by roughly 1MB each time I run the macro, I can not use it. The strange part is that the file only grows by a few bytes when I mark Column B and use the copy/paste function to Column C, D, E etc.

So, in order to save place I'm looking for a macro that can copy column. Can you help me?

andy-s

[Tom Schreiner]

Counter = Sheets("Sheet1").Cells(1, 1)
Sheets("Sheet1").Columns("B:B").Copy
Sheets("Sheet1").Columns(Counter + 1).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Try the above inplace of your original code...

Tom

[ This Message was edited by: TsTom on 2002-04-21 13:55 ]

[andy-s]

Yeah.... at last