Add a sheet to your workbook called "Start". Place a button on it from the
Control Toolbox. Right click on the button to view the properties and change
the button caption. Right click on the button and select view code. Paste
this code in.

Private Sub CommandButton1_Click()
Dim wks As Worksheet

For Each wks In Worksheets
If wks.Name < "Start" Then wks.Copy 'Copies all but the start Sheet
Next wks
End Sub
--
HTH...

Jim Thomlinson


"FGOMEZ" wrote:

Every month, I update a workbook with 35 sheets that I have to break it won
for 17 people, the sheets that I send varies for everyone (1 to 17 sheets),
the process I use is: create a copy of the sheet(s) as a new workbook, what
I am looking for is to have the sheet(s) selected and run the macro to do
the work (I would do it with a button).
I tries to use the macro recorder, but unfortunately comes with the sheet
name.
Could somebody help me to get this task automated.

Thanks