Chris,

Looking good...

The next step in your progress is to learn how to eliminate any selecting.

example
Range("A1").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste

becomes
Range("A1").Copy _
Destination:=Range("B1")
or
Range("B1")=Range("A1")

And if you specify sheet names - you can do this between sheets
Specify workbook names - and you do this between workbooks.

Of course this is a very basic example...

Keep on Exceling...
--
steveB

Remove "AYN" from email to respond
"chris100" wrote in
message ...

Hi SteveB

Thanks for the advice. I just recently figured out how to record macros
and adapt the code to my needs. Good method for my level of programming.
In this case, like you say, i just recorded the macro - went through the
steps and cut and paste into my own macro. Looks a little messy but
works all the same.

Thanks to all who give help here.


--
chris100
------------------------------------------------------------------------
chris100's Profile:
http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=387877