Adjusting Macro
 

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

Adjusting Macro
 

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

Adjusting Macro
 

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