Hi everyone,

I've got a wkbk with 26 sheets. I need to clear contents on the same range
on each sheet but only on 20 of the sheets.

So I've got a ClearContents routine which I'm calling from the ClearAll
routine

Sub ClearAll()
Application.ScreenUpdating = False
Sheets("Data").Select
Call ClearContents
Sheets("DataDD").Select
Call ClearContents
etc

This is quite slow and I'm sure there must be a more efficient and elegant
way to code this.

Any suggestions would be welcome.

Thank you
--
Mifty