Selecting sheet
 

I have a file with 1 Master sheet (Information of 35 Sales Fields) 35 Sheets
(1 for every single field), every week we have to send a copy of every field
to the correspondent manager.
My purpose is to automate this task as follow:
Select the sheet (Field) and Uusing this macro (a button open the user form)
:
Private Sub UserForm_Activate()
With ActiveWorkbook
For I = 1 To .Sheets.Count
ComboBox1.AddItem .Sheets.Item(I).Name
Next
End With
End Sub
This macro only select the sheet and keeps the form open, I need to continue
to copy the sheet to a new file then get the user form closed.

Could somebody give me a hand
..

Thanks in advance