Try this macro

Sub Set_Print_Range()
Set MySheets = ActiveWindow.SelectedSheets
For Each ws In MySheets
ws.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
Next
End Sub

Select the sheets first then run the macro.


Gord Dibben MS Excel MVP

On Mon, 6 Nov 2006 13:41:01 -0800, lanrcdd
wrote:

Is there a way to set the same print range for a group of worksheets without
having to set it for each sheet individually?