Hey Tom


I think I might have solved...would like your input on the solution.

'initial code...
' Sheets(Array(WorkSheet4_Reg_Data, Chart2_Reg)).Copy
'replace with....
Sheets(Array(WorkSheet4_Reg_Data, Chart2_Reg)).Select
Selection.Cop

--
Message posted from http://www.ExcelForum.com