As long as the used range doesn't include the last row of the worksheet:
Worksheets("Sheet1").UsedRange.Offset(1).ClearCont ents
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______
"Michael" wrote in message
oups.com...
How do I clear all cells from all rows except the first row in Sheet1?