The length of the string for the addresses is too long.

How about

dim r1 as range
dim r2 as range
dim r3 as range
'as many as you need
dim rAll as range

set r1 = range("c14:c25,c27:c34....") 'lots of addresses
set r2 = range("more addresses")
set r3 = range("even more addresses")
'as many as you need

set rAll = union(r1,r2,r3,...)

rAll.select




dk_ wrote:

What is the rule for selecting ranges of non-adjacent sections?
What is going on with my selection range below?

If I try to add just one more range of cells after 'J104'
in the range below, then Excel97 quits.

I have been unable to find what is wrong here?
I can add just one more individual cell after 'J104",
but not a range, not even a range of even 2 cells.

Range("C14:C25,C27:C34,C36:C38,C40:C48,C52:C59,C61 :C68,C70:C72,C74:C77,C7
9:C80,C82:C86,C88:C91,C93:C95,C95,C93:C95,C97:C100 ,C104:C118,C121:C125,C1
27:C136,C138:C144,C146:C147," _
&
"C150:C152,C155,C157,C159:C162,C164:C173,C175:C185 ,C189:C195,J14:J16,J18:
J25,J27:J48,J51:J58,J59:J67,J69,J71:J99,J103:J104" ).Select

-Dennis

--

Dave Peterson