Kod:
Sub Makro()
Dim mySheet As String
mySheet = Application.InputBox(prompt:="Podaj nazwę arkusza: ", Title:="Add Sheet!", Type:=1 + 2)
Sheets("Wzór-rok").Copy after:=Sheets(5)
Sheets("Wzór-rok (2)").Name = mySheet
End Sub
Działa wielokrotnie pod warunkiem, że nie nazwiesz któregoś "Wzór-rok (2)"