try

Sub clearcells()
Worksheets("sheet13").UsedRange.Clear
End Sub

--
Don Guillett
SalesAid Software

"Alvin Hansen" wrote in message
...
Hi!!
I need some way to clear all
cell in a sheet.

Hope someone can help

Alvin