Excel 2007 : Copying from multiple templates based on criteria.

I saw this code in a forum but how would I apply it to my workbook?

Dim NewPageName As String

Sub NewPage()

Sheets("Master").Visible = True
Sheets("Master").Copy After:=Worksheets(Worksheets.Count)
NewPageName = InputBox("What would you like to call your new Worksheet")
ActiveWindow.ActiveSheet.Name = NewPageName
Sheets("Master").Visible = False

End Sub