Auto Form Number

[Freshman]

Dear experts,

I posted my question on 13 Nov 2003 of how to create a
form with an auto form number automatically generate out
when printed. Thanks to one expert who taught me a macro
for my question. However, I've another question. If I want
to print the forms with numbers from 1 to 50 at one time,
then how the marco below should be modified in order to
achieve my objective?

Sheets("SCD").Select ' SELECT SHEET

a = Workbooks("Autoform.xls").Worksheets("SCD").Range
("ae2").Value ' DEFINE VALUE OF A - FROM CELL IN WORKSHEET

ActiveWindow.SelectedSheets.PrintOut Copies:=1,
Collate:=True ' PRINT SHEET

a = a + 1 ' UPDATES UNIQUE NUMBER

Worksheets("SCD").Range("ae2").Value = a ' UPDATES UNIQUE
NUMBER ON SHEET

Thanks a lot.