Huh?
Do you want it to print a different sheet for each of those numbers?
If so:

Private Sub CommandButton1_Click()
Cells(1, 1).NumberFormat = "0000"
For x = 0 To 9999
Cells(1, 1).Value = x
Next x
End Sub

- Piku

--
Message posted from http://www.ExcelForum.com