I would like to set the print area for all worksheets except the first
two worksheets equal to the range (b5:r36,b38:b83). Any suggestions
on how to do this?

Thanks

Sub test2()
Dim i As Long, sName As String

For i = 3 To ActiveWorkbook.Worksheets.Count
With Worksheets(i)
sName = "'" & .Name & "'!Print_Area"
.Names.Add sName, .Range("$B$5:$R$36,$B$38:$B$83")
End With
Next

End Sub

Regards,
Peter T


wrote in message
...
I would like to set the print area for all worksheets except the first
two worksheets equal to the range (b5:r36,b38:b83). Any suggestions
on how to do this?

Thanks