You could copy each individual cell:

Dim rng As Excel.Range, r As Excel.Range

Set rng = Sheets("myWorksheet").Range("rng1, rng2")

For Each r in rng
r.Copy Sheets("TargetWorksheet").Cells(r.Row, r.Column)
Next r

Let me know if that helps you.

Regards,
Steve

AD108 schrieb:

I am trying to manipulate 15 non contiguous ranges. I tried typing them
explicitly and got an error saying something about too many arguments (for
the Range. I assume)

My next approach was to try a named range (which seems to be limited to 8
sections)

I defined two named ranges, one consisting of 7 non contiguous ranges, and
the other consisting of 8. ("rng1" and "rng2")

I then defined a third name, "rng", as =rng1, rng2

I was then able to use different methods, such as clear contents, but when I
tried to copy, I get runtime error 1004 with a message saying "This commmand
cannot be used on multiple selections."

Any help would be appreciated. Thanks

AD108
--
Remove 7 numbers to email
AD108