try

myarray=array("sheet1","sheet,5", etc)
for each c in my array
sheets(c).rows("2:1000").clearcontents
next c

--
Don Guillett
SalesAid Software

"M.A.Tyler" <Great Lakes State wrote in message
...
Can the following macro be adjusted to NOT clear the 1st rows of pages 1,
5,
7 and 8? This is where the headers are, and they are used in other
formulas.

Thanks.

M.A.Tyler.

Sheets("Sheet7").Select
Cells.Select
Selection.ClearContents
Sheets("Sheet8").Select
Cells.Select
Selection.ClearContents
Sheets("Sheet5").Select
Cells.Select
Selection.ClearContents
Sheets("Sheet1").Select
Range("P245").Select