Thanks Tom

Tom Ogilvy wrote:
change
Worksheets("Calculation").Range(MyRange).Select
to
Worksheets("Calculation").Range(MyRange).Entireco lumn.Select

and
Worksheets("Data").cells(6, Data_Col).Select

to
Worksheets("Data").Columns(Data_Col).Select

Of course you can then probably eliminate a lot of other code, but that is
your decision.

I have something that almost works...but I can't get it to copy the entire
Column AD, where am i making a mistake.
[quoted text clipped - 64 lines]

End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200603/1