"Mestrella31" wrote in message
...
how do you set or reset the print range for several sheets at a time?

try something like this

For Each s In ActiveWorkbook.Sheets
s.PageSetup.PrintArea = "$A$1:$E$10"
Next s


/Fredrik