Thank both of you for the help.

"Tom Ogilvy" wrote:

Sub AAAA()
Vio_Num = 3
For Coun = 1 To Vio_Num
Sheets(Coun).Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$45"
Next

End Sub


--
Regards,
Tom Ogilvy

"Brent" wrote in message
...
I am trying to complete a macro that is linked to a button to print
multiple
sheets from a workbook. The macro is intended to read a number from the
first sheet to determine how many sheets to print. This should be a short
program, but How would I write a for loop to access a different sheet each
time. This is what I have

For Coun = 1 To Vio_Num

Sheets("?").PageSetup.PrintArea = "$A$1:$L$45"


The ? is where I need the incementing value to go. Is this possible?