copy sheet to new workbook (values and formatting)

[Undo]

while there is formulas in the sheet refrences to another sheets, looking to copy activesheet to new workbook
paste formating then paste values
this code give me REF error in the new sheet

Please Login or Register  to view this content.

[nimrod1313]

Please Login or Register  to view this content.

if this helps pls consider clicking "add reputation"

[Undo]

The code remove the original formulas from main page

[Undo]

its do everything correctly but main sheet fornulas will be values only