Initialize/Emtpy Workbook

[rwei]

I am trying to initialize/empty all the worksheets within a workbook by using VBScript codes.

What's the right way to do this?

Thanks.

 

[SkipVought]

Hi,

Dim ws As Worksheet
For Each ws In Worksheets
  ws.Cells.Delete
Next

Skip,
[sub]
[red]Be advised:[/red] The dyslexic, agnostic, insomniac, lays awake all night wondering...
"Is there really a DOG?" [/sub]

 

[rwei]

This seems to delete cell by cell for all the worksheets in a workbook (I have workbook with 10-20 worksheets)? Is this the best way?

I was hoping to initialize/empty workbook in one single lazy code? =), or at least empty worksheet by worksheet thru a loop or something?

 

[SkipVought]

Where do you see, cell-by-cell?

Skip,
[sub]
[red]Be advised:[/red] The dyslexic, agnostic, insomniac, lays awake all night wondering...
"Is there really a DOG?" [/sub]