Renaming Worksheet Tabs Macro

I would like to create a macro that would bring up an input box or preferably a list box that will allow me to input information for a sheet/tab name where where "TBL NPL NGRPL" appears in the code at the end of this message. The macro needs to be available to any new file created

The only worksheet names needed are below.

TBL NPL NGRPL
TBL NPL NIAU7
TBL NPL NIAU8
TBL NPL NIA10
TBL NPL NNDU4

This is the extent of my ability:

Sub Macro1()
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "TBL NPL NGRPL"
Range("A1").Select
End Sub

I created six macros, but there must be an easier way.