You need to put your ranges and commas all inside one set of quotes:

Set ClosingRange =
ActiveSheet.Range("g9:g12,g17:g22,g28:g39,g45,g48, g62:g84,g89:g98,g106,g112:g114,g142:g147,g149:g152 ,g157:g168,g170:g176,g178:g185,g189:g195")
Set OpeningRange = Worksheets(ActiveSheet.Index +
1).Range("e9:e12,e17:e22,e28:e39,e45,e48,e62:e84,e 89:e98,e106,e112:e114,e142:e147,e149:e152,e157:e16 8,e170:e176,e178:e185,e189:e195")
OpeningRange.Value = ClosingRange.Value


"srinivasan" wrote:

I got this code from the community . When I give the range value from
G9:G195, it works fine. When I modified the range to exclude formulas as
detailed below it gives run time error message 450. I request to be
informed what went wrong with this?

Sub Open_To_Close()
Dim ClosingRange As Range
Dim OpeningRange As Range
Set ClosingRange = ActiveSheet.Range("g9:g12", "g17:g22", "g28:g39", "g45",
"g48", "g62:g84", "g89:g98", "g106", "g112:g114", "g142:g147", "g149:g152",
"g157:g168", "g170:g176", "g178:g185", "g189:g195")
Set OpeningRange = Worksheets(ActiveSheet.Index + 1).Range("e9:e12",
"e17:e22", "e28:e39", "e45", "e48", "e62:e84", "e89:e98", "e106",
"e112:e114", "e142:e147", "e149:e152", "e157:e168", "e170:e176", "e178:e185",
"e189:e195")
OpeningRange.Value = ClosingRange.Value
End Sub

Thanks in advance