Drop down list within VBA

[Yoepy]

Hi all, hope someone can assist.

I have a blank template which I add to the workbook as a new event is created.

I have now noticed there are three other circumstances which require different templates. So I will have Blank1, Blank2, Blank3 and Blank4 templates.

Currently i just have a piece of code which adds the new sheet (and then does a whole lot of other stuff).

Sheets("Blank1").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Sheet" & ActiveSheet.Index

How do I get a selection box to pop up when I run the "NewSheet" macro which asks "Which template do you want to add?" and then adds the appropriate blank?

Thanks in advance.

 

[kvsrinivasamurthy]

Try this code

Sub Macro1()


Sheets(InputBox("Enter Sheet Name:", "SHEET NAME")).Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Sheet" & ActiveSheet.Index
    
    End Sub

 

[Yoepy]

Thanks, but I don't want to type the choice. I must be able to use a drop down or data validation list