Loop thru Mult Ranges and save as valus

[Grimm127]

Hello Gurus!

I am a VBAmature and in need of your genius, lol.


I have a set of various ranges that I need to set to save as values. My current set up as follows. However the problem is that I can't paste values in multiple ranges.

So I need something that loops through each range and saves those ranges as values. How can I do this?

'PNL1
Range("A6:AC8,A10:AC11,A13:AC13,A16:AC19,A21:AC22,A25:AC28,A30:AC30,A298:AC300,A302:AC303,A305:AC305,A308:AC311,A313:AC314,A317:AC320,A322:AC322").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[mikerickson]

Changing and resetting calculation mode applies to the Areas approach as well.

What are in the intermediate cells? If they are not formulas, just include them in the .Value = .Value.