Create a new worksheet from a sheet

[jgalas]

Hi,

I have several sheets in Workbook ("Avalia"), like sheets("CP1"), sheets("CP2"), sheets("CP3"),.... sheets("STC1"), sheets("STC2"), sheets("STC3"),... sheets("CLC1"), sheets("CLC2"),...
all with data.

I have also a form_Export with commandbuttons one for each sheet in Workbook ("Avalia") and a form_Import with same buttons.

What i want:
1- when i push button in form_Export it will be create, in same workpath a woorkbook named like button was hit + name of main workbook. Sample: hit button - STC1 --> name of new workbook - Avalia-STC1.xls
This workbook have only one sheet - named like button hit, in sample STC1 - and exacty the same as sheet ("STC1") in Workboock ("Avalia").

2- The same append with the form_Import, but now it will select and import to the data in the clone workbook to "Avalia" same Sheet.

I hope I have been clear in explaining
Thanks

 

[jgalas]

Anyone!!!!

 

[jgalas]

Seems I have figured out how to do it ... thanks

Private Sub CommandButton1_Click()
Dim Nome As String
Nome = "CP1"
Workbooks.Add xlWorksheet
ActiveWorkbook.SaveAs Filename:=Nome
Sheets(1).Name = Nome
End Sub