Simply:

Public Sub ClearSheet(sheet As Worksheet)
sheet.Cells.Clear
End Sub

I would change the variable sheet though as I think it
is a reserved word.

RBS


<gimme_this_gimme_that@yahoo.com> wrote in message
news:1141338844.022076.226610@t39g2000cwt.googlegroups.com...
> Seek clean alternative to :
>
> Public Sub ClearSheet(sheet As Worksheet)
> sheet.Activate
> Cells.Select
> Selection.ClearContents
> Selection.Clear
> End Sub
>
> Thanks.
>