How would I clear the contents of all Sheets in my file? I can record
a macro that will clear the contents of a specific, but I have
multiple sheets and was wondering if there is a nice easy way

Newbie here

Thanks

Timmie

Hi,

If you going to do that why not simply delete the workbook. But if you want
another method use this. BEWARE it will delete everything so make sure thats
what you want. Alt+Fll to open Vb editor. Right click a worksheet tab, view
code and psate this in.

Sub clearall()
Dim ws As Worksheet
For x = 1 To ThisWorkbook.Worksheets.Count
Worksheets(x).UsedRange.ClearContents
Next
End Sub

Mike

"(E-Mail Removed)" wrote:

> How would I clear the contents of all Sheets in my file? I can record
> a macro that will clear the contents of a specific, but I have
> multiple sheets and was wondering if there is a nice easy way
>
> Newbie here
>
> Thanks
>
> Timmie
>

Thank you Mike that works a dream. Didn't want to delete the
worksheets as I have formats setup, so each week I copy in different
data (but require the same formats)

Tim

Once your workbook is clear, see if saving your workbook as a "Template"
might be an option for you.

--
Dana DeLouis

<(E-Mail Removed)> wrote in message
news:1e4e1bee-7d85-4e23-b0d6-(E-Mail Removed)...
> Thank you Mike that works a dream. Didn't want to delete the
> worksheets as I have formats setup, so each week I copy in different
> data (but require the same formats)
>
> Tim

Hi,

Glad that helped and thanks for the feedback. BTW my response was a cut from
another sub and I included this line which isn't necessary
Dim ws As Worksheet

Mike

"(E-Mail Removed)" wrote:

> Thank you Mike that works a dream. Didn't want to delete the
> worksheets as I have formats setup, so each week I copy in different
> data (but require the same formats)
>
> Tim
>