I'm trying to clear all contents on 3 selected sheets (out of many worksheets I've got in my WB). So far I've got the following code (which works fine), but I was wondering if there's an easier way to get the same result:
Private Sub ClearData() Dim ws As Worksheet For Each ws In Worksheets Select Case ws.Name Case "Sheet1", "Sheet2", "Sheet3" With ws ws.Cells.ClearContents End With End Select Next ws
I was trying to see if it's possible to use Array, but couldn't find anything relevant so far. Would appreciate your help!