Hi Guys
I'm using the following code to select a specific ranges to be ready for 'Set Print Area'
Sub SelectRangesForPrintArea()

Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range, r5 As Range, r6 As Range, r7 As Range, r8 As Range, r9 As Range, r10 As Range, rAll As Range


Set r1 = Union([A6:K75], [A96:K165], [A186:K255], [A276:K345], [A366:K435], [A456:K525], [A546:K615], [A636:K705], [A726:K795], [A816:K885])
Set r2 = Union([A906:K975], [A996:K1065], [A1086:K1155], [A1176:K1245], [A1266:K1335], [A1356:K1425], [A1446:K1515], [A1536:K1605], [A1626:K1695], [A1716:K1785])
Set r3 = Union([A1806:K1875], [A1896:K1965], [A1986:K2055], [A2076:K2145], [A2166:K2235], [A2256:K2325], [A2346:K2415], [A2436:K2505], [A2526:K2595], [A2616:K2685])
Set r4 = Union([A2706:K2775], [A2796:K2865], [A2886:K2955], [A2976:K3045], [A3066:K3135], [A3156:K3225], [A3246:K3315], [A3336:K3405], [A3426:K3495], [A3516:K3585])
Set r5 = Union([A3606:K3675], [A3696:K3765], [A3786:K3855], [A3876:K3945], [A3966:K4035], [A4056:K4125], [A4146:K4215], [A4236:K4305], [A4326:K4395], [A4416:K4485])
Set r6 = Union([A4506:K4575], [A4596:K4665], [A4686:K4755], [A4776:K4845], [A4866:K4935], [A4956:K5025], [A5046:K5115], [A5136:K5205], [A5226:K5295], [A5316:K5385])
Set r7 = Union([A5406:K5475], [A5496:K5565], [A5586:K5655], [A5676:K5745], [A5766:K5835], [A5856:K5925], [A5946:K6015], [A6036:K6105], [A6126:K6195], [A6216:K6285])
Set r8 = Union([A6306:K6375], [A6396:K6465], [A6486:K6555], [A6576:K6645], [A6666:K6735], [A6756:K6825], [A6846:K6915], [A6936:K7005], [A7026:K7095], [A7116:K7185])
Set r9 = Union([A7206:K7275], [A7296:K7365], [A7386:K7455], [A7476:K7545], [A7566:K7635], [A7656:K7725], [A7746:K7815], [A7836:K7905], [A7926:K7995], [A8016:K8085])
Set r10 = Union([A8106:K8175], [A8196:K8265], [A8286:K8355], [A8376:K8445], [A8466:K8535], [A8556:K8625], [A8646:K8715], [A8736:K8805], [A8826:K8895], [A8916:K8985])


Set rAll = Union(r1, r2, r3, r4, r5, r6, r7, r8, r9, r10)

rAll.Select

End Sub
The problem with the code is:
1. it's a fixed number, no flexibility.
2. code is big, and need to be shorter.

I believe this can be solved by using a loop.
Also, the number of loops to run, will be determined by cell "X1" value.

Hope you can help me with this.

Thanks
Amit