Sub clearsheet()
With ActiveSheet
myname = .Name
Application.DisplayAlerts = False
..Delete
Sheets.Add
ActiveSheet.Name = myname & "new"
End With
End Sub
'probably this one
Sub clearnamedsheet()
With Sheets("template")
Application.DisplayAlerts = False
..Delete
Sheets.Add
ActiveSheet.Name = "Template"
End With
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Kevin Burton" <(E-Mail Removed)> wrote in message
news:BD082EA5-A9B0-4602-B828-(E-Mail Removed)...
>I want to use one sheet as a kind of work area. I plan on filling up cells
> with data from various places. To make things easier for this kind of
> application I would like to be able to clear a sheet. I want it just as it
> started, no tables, no charts, no named ranges, clear all of the
> data/cells,
> etc. I could not find something like sheet.Clear(). If I get a reference
> to
> the work sheet like:
>
> Excel.Worksheet baseSheet = this.Worksheets[1] as
> Excel.Worksheet;
>
> How would I clear this worksheet?
>
> Thank you.
>
> Kevin