VBA code to clear contents

This code:-

Worksheets("Lists").Range("B2:C2,B3:C3,B6:C6").Clear

 - will only clear the named ranges of the Worksheet called Lists and nothing else.

This code:-

ActiveSheet.Range("B2:C2,B3:C3,B6:C6").ClearContents

 - will clear the named ranges of the Active Sheet (i.e. the only one that’s currently selected by the user) so it can apply to multiple Worksheets.

For this part:-

Activating the sheet always works:

Sub ClearSummaryDataAll()

ActiveSheet.Range("B2:C2,B3:C3,B6:C6").ClearContents

End Sub

 - you’re not activating the Worksheet but referring to the currently selected Worksheet (can you see the difference?) and this is why this code’ll apply to the named ranges of the Active Sheet.

No results. No error message. (Thanks for getting back to me so quickly!)

Thanks for your quick reply!

I tried your code suggestion (below) but I get nothing. No results, not even an error message.

Sub FromMsftComm()

Worksheets("Lists").Range("B2:C2,B3:C3,B6:C6").Clear

End Sub

Activating the sheet always works:

Sub ClearSummaryDataAll()

ActiveSheet.Range("B2:C2,B3:C3,B6:C6").ClearContents

End Sub

I guess can I activate the Lists sheet and then go back to my original position.

That wouldn't be the worse thing I could do. My objective is to keep things simple & efficient.

I have the following code in a procedure:

Sheets("Lists").Range("B2:C2,B3:C3,B6:C6").ClearContents

It does not work and the only way to use the clearcontents command, so far as I've found,

is to activate the sheet first. Is there code to do a clearcontents w/o having to activate the sheet?

This works for me with no errors reported:-

Worksheets("Lists").Range("B2:C2,B3:C3,B6:C6").Clear

OR - depending upon your exact requirements:-

Contents and styles:-

Worksheets("Lists").Range("B2:C2,B3:C3,B6:C6").Clear

Content only:-

Worksheets("Lists").Range("B2:C2,B3:C3,B6:C6").ClearContents

That code should work without having to activate the sheet. What error do you get?