So you do not really want x copies of the same sheet; you want to print it x
times with changes ?
Depending how/where you are numbering the tags, amend this:

Private Sub CommandButton1_Click()
Dim PrintCount As Long
Dim i As Long

Const NUMBERSONLY As Long = 1

PrintCount = Application.InputBox("How many tags ?", "Print count", , , , ,
, NUMBERSONLY)

For i = 1 To PrintCount
With Worksheets(1)
.Range("A1").Value = i
'.PrintOut
End With
Next

End Sub

NickHK

"mslabbe" wrote in message
...
Hi All!

I'm trying to come with a macro that will ask the user to select how many
copies of a sheet to print. The thing that are being printed are tags. I
would like to number themas the are printed.

Any suggestions?

Thanks in advance