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

How about:

worksheets("sheet1").range("A2:iv65536").clearcont ents
worksheets("sheet5").range("A2:iv65536").clearcont ents
worksheets("sheet7").range("A2:iv65536").clearcont ents
worksheets("sheet8").range("A2:iv65536").clearcont ents

(If you're using xl2007, change IV65536 to that bottom right cell's address.)

M.A.Tyler wrote:

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

--

Dave Peterson

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