A macro can only copy particular sheets if they can be identified in some
way - by name, position, content, selection, etc. Once you can lay out the
rules for identifying the sheets a macro can be written to use it.

--
Jim
"A. Karatas" wrote in message
ups.com...
| Hi,
|
| I want to build a macro in which 6 particular sheets are copied (with
| content, formulas and pivottables) and put at the end of the workbook.
| The problem with recording is that the original sheets can differ from
| sheet name on each update of the database because of a macro that
| looks at a certain cell of that particular sheet and than renames
| accordingly (after updating the pivot). Today the sheet name can be
| 6a- CELL- SRMS-AD and the next time 6a- NUT -SRMS-AD.
| At recording it looks like this, but this is not working for me. Any
| help???
|
|
| Sub multiplysheets()
| ' multiplysheets Macro
| ' Macro recorded 27-3-2007 by Karata01
|
| Sheets(Array("6a- Cell-SRMS-AD YTD", "6b- Cell-SRMS-AD-CUS YTD", _
| "6c- Cell-SRMS-AD-CUS YTD", "6d- Cell-SRMS-A-P-C YTD", "6e-
| Cell-Enduse YTD", _
| "6f- Cell-SRMS-cntry YTD")).Select
| Sheets("6f- Cell-SRMS-cntry YTD").Activate
| Sheets(Array("6a- Cell-SRMS-AD YTD", "6b- Cell-SRMS-AD-CUS YTD", _
| "6c- Cell-SRMS-AD-CUS YTD", "6d- Cell-SRMS-A-P-C YTD", "6e-
| Cell-Enduse YTD", _
| "6f- Cell-SRMS-cntry YTD")).Copy Befo=Sheets(53)
| End Sub
|
| Thanks in advance
|