Macro to create new sheets with combo box selection

[fazan]

Hi,

I have created a Combo Box to with a list of Work Sheet names, I need a macro to create a new shet with a standard format (copy an existing sheet) and name it as stated in the drop down list, if the sheet in not available in the file. If the sheet is available, go 2 that sheet (Hyper link)

Please help on this code.

Regards

Fazan

 

[DonkeyOte]

Private Sub ComboBox1_Change()
Dim s1 As String: s1 = "Sheet2" 'sheet you wish to use as template for new sheets
On Error GoTo CreateNew
Sheets(ComboBox1.Value).Activate

Exit Sub

CreateNew:
Sheets(s1).Copy After:=Sheets(s1)
ActiveSheet.Name = ComboBox1.Value

End Sub

 

[fazan]

Hi Lasw,

Thans for the quick reply its working well . I ahve some problem,

1. In the combo box I want to restrict only the i have specified and should not allow excepting any other invalid entry.

2. further if there is alredy a selection in the combo box and i want to go to the same sheet its not working.

It it possible to change the combo box properties rectify the above or is ther any other option ?

Regards

Fazan