Clearing Data from Multiple Worksheets

Question

I am looking for a macro that would clear out data from a specific set of cells, but on multiple worksheets all at once (or if not a macro, any way to do this?).

Thank you!

Answer 1

I have. Between the weird way these worksheets are set up and my lack of experience with macros, I couldn't get it to work. I just did all 300+ worksheets manually.

Answer 2

Hi VGS79,

Have you tried any steps above?

Thanks,

Rena

Answer 3

If you have merged cells that need to be cleared - using the same ranges and sheets:

Sub ClearRanges2()

    Dim C As Range

    Dim sh As Worksheet

    For Each sh In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))

        For Each C In sh.Range("D22,A1:B3,C5:D8,E10:E11")

            C.MergeArea.ClearContents

        Next C

    Next sh

End Sub

Answer 4

Thank you! I didn't realize. however, that some of my cells are merged cells, so this won't work.

Answer 5

Group the sheets, using Ctrl-clicks on the tabs (or Shift-Click) then select your cells (area by area or using Ctrl-Drag-click/drag click/drag....) and press Del.  If you record a macro when you do that, it will be easily repeatable. OR you can use this macro, editing it to meet your specific needs:

Sub ClearRanges()

    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Range("D22,A1:B3,C5:D8,E10:E11").ClearContents

End Sub