Everything you need to do can be accomplished with activeX. The only way to duplicate the open workbook as values only is sheet-by-sheet using Paste Special as values. Instead of copying the entire workbook, just Add a new workbook, then select the entire sheet in the source book and paste special into the new workbook. This will remove all of the formatting also.
You can expect the new workbook to have an unknown number of blank sheets, since it is settable in the options. Use the sheets->count to avoid an error on the paste operation and insert a sheets->add operation.