PDA

View Full Version : Solved: Click to color



JEPEDEWE
10-25-2011, 02:23 AM
Hi,
I have 3 cells next to each other
finally, I should end up with an green, orange or red coloured cell

So if I click in cel A1 it turns red, B1 Orange, C1 Green

Other colours (in "non-clicked cells) should disapear

Is this possible?

Thanks

Sorin Sion
10-25-2011, 08:46 AM
Try this, included in the sheet's code (not in workbook's code, not in a module):


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Select Case Target.Address
Case "$A$1"
Target.Interior.Color = RGB(255, 0, 0)
Range("B1").Interior.Color = RGB(255, 255, 255)
Range("C1").Interior.Color = RGB(255, 255, 255)
Case "$B$1"
Target.Interior.Color = RGB(255, 127, 0)
Range("A1").Interior.Color = RGB(255, 255, 255)
Range("C1").Interior.Color = RGB(255, 255, 255)
Case "$C$1"
Target.Interior.Color = RGB(0, 255, 0)
Range("A1").Interior.Color = RGB(255, 255, 255)
Range("B1").Interior.Color = RGB(255, 255, 255)
End Select
End Sub

Kenneth Hobs
10-25-2011, 08:52 AM
Right click the sheet's tab, View Code, and paste:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iRange As Range
If Target.Cells.Count > 1 Or Target.Column <> 1 Then Exit Sub
ActiveSheet.UsedRange.Interior.Color = xlNone 'Default
With ActiveCell
.Interior.Color = vbRed
.Offset(0, 1).Interior.Color = 4626167 'Orange
.Offset(0, 2).Interior.Color = vbGreen
End With
End Sub

JEPEDEWE
10-25-2011, 10:25 AM
@ Sorin Sion

Your code works great... but...

second part of the question

I have about 450 rows of 3 cells, how to change the code?

Many thanks

JP

Sorin Sion
10-25-2011, 12:55 PM
Replace with this code:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim i As Integer
i = Target.Row
'Application.EnableEvents = False
'Range("A:C").Select
'Selection.Interior.ColorIndex = xlNone
'Target.Select
'Application.EnableEvents = True
'*** Uncomment the lines above if you need a single highlighted cell on the sheet
'*** Otherwise you will have a colored cell on each row from the A-C columns where you did a selection
Select Case Left(Target.Address, 3)
Case "$A$"
Target.Interior.Color = RGB(255, 0, 0)
Range("B" & i).Interior.ColorIndex = xlNone
Range("C" & i).Interior.ColorIndex = xlNone
Case "$B$"
Target.Interior.Color = RGB(255, 127, 0)
Range("A" & i).Interior.ColorIndex = xlNone
Range("C" & i).Interior.ColorIndex = xlNone
Case "$C$"
Target.Interior.Color = RGB(0, 255, 0)
Range("A" & i).Interior.ColorIndex = xlNone
Range("B" & i).Interior.ColorIndex = xlNone
End Select
End Sub

JEPEDEWE
10-25-2011, 01:26 PM
It works.... great... thank you soo much

Is it possible to prevent a few cells from colloring... (protect them in a way)

(cells next to a title)

Thanks

Sorin Sion
10-25-2011, 01:31 PM
Change:

i = Target.Row
to:

i = Target.Row
if i < 2 Then Exit Sub
if your data starts on the second row

JEPEDEWE
10-25-2011, 02:05 PM
I send you a screendump...

The 3 rectangles on the right is where the colour comes
the grey titles have no colour-rectangles

the tekst next to the colour-rectangles not always is the same

Hope it helps to clear things out!
Thanks

Sorin Sion
10-25-2011, 02:44 PM
By counting the columns I see in your screenshot I suppose the columns to be colored are K, L and M. Also, the first "data" row would be 11.
If you don't want to adjust the width of the first column, to match the length of the longest text or imposing a fixed width and formatting this first column for wrapping the text (in this case the targeted columns would be B, C, D), the code has to be adjusted like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim i As Integer
i = Target.Row
If i < 11 Then Exit Sub
'Application.EnableEvents = False
'Range("K:M").Select
'Selection.Interior.ColorIndex = xlNone
'Target.Select
'Application.EnableEvents = True
'*** Uncomment the lines above if you need a single highlighted cell on the sheet
'*** Otherwise you will have a colored cell on each row from the K-M columns where you did a selection
Select Case Left(Target.Address, 3)
Case "$K$"
Target.Interior.Color = RGB(255, 0, 0)
Range("L" & i).Interior.ColorIndex = xlNone
Range("M" & i).Interior.ColorIndex = xlNone
Case "$L$"
Target.Interior.Color = RGB(255, 127, 0)
Range("K" & i).Interior.ColorIndex = xlNone
Range("M" & i).Interior.ColorIndex = xlNone
Case "$M$"
Target.Interior.Color = RGB(0, 255, 0)
Range("K" & i).Interior.ColorIndex = xlNone
Range("L" & i).Interior.ColorIndex = xlNone
End Select
End Sub

JEPEDEWE
10-26-2011, 04:45 AM
Thanks a lot for your kind help,
I have been able to make the adjustments for the correct cells... but thanks anyway
Alas, I think the situation is a bit more complicated
This is a larger part of my screen:

http://www.vbaexpress.com/forum/data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAxUAAAFfCAIAAAC3I3Z+AAAgAElEQVR4nO2dz2rb ShvGdQG5klyAoZtcQdbOHZyF1ym5hewaQ7ZZdRkcThb9CIWmmwTCgcTLmrrFmHIgixAOBVMohfd b2JJGo3f0x/+ed5LnRzjkqNLop7GseTIzkpLJj8fJxVGnc3By95j+fnT+43FS/Ln88FFi5uu372iFlaA/FvpjoT8W+mMx4k8Nl6/fvie3Px5v+wed7untIipdHmZZivnJDPTHQn8s9MdCfyxG/Knh8vXb96TU53R52OkcXjA/2YL+WOiPhf5Y6I/FiD81XNL89OPx/G0n5aDbZX4yB/2x0B8L/bHQH4sRf2q4fP32PSlNdWL/k0Xoj4X+WOiPhf5YjPhTw+Xrt++JP9WJ88dNQn8s9MdCfyz0x2LEnxou5f6ny8NOp9u/nzA/GYP+WOiPhf5Y6I/FiD81XNL5T3en3XT2kxqemJ/g0B8L/bHQHwv9sRjxp4ZLPn+89of5CQv9sdAfC/2x0B+LEX9quDA/RQP9sdAfC/2x0B+LEX9quDA/RQP9sdAfC/2x0B+LEX9quDA/RQP9sdAfC/2x0B+LEX9quLTLTwkhhBBCtg46LYhYCi5oBZF5frr88LHhD/r8IYQQQl4jX79954+1nxb9T58JIYQQskXm+Qnd2yJiqeMHrSDSdvwOfRYRQgghrwvmJw87GsxPh BBCiFGYnzzsaDA/EUIIIUZhfvKwo8H8RAghhBiF+cnDjsZS+el9bze9KWD/OPyxv+/tVv57VtRu7327rao43i+W11qJEEIIsQHzk4cdjTQ/Oa8QPryozk/H+1lsOt5PwmHleL8mX33+nEUxZ7WN5qe17YUQQgjZOMxPHnY05vnp8rDT6fbvJz8eJxdHnc7ByV 04PxXySTiGHO8nu7vN+p/2e73dJkU2g/mJEELIC4H5ycOORpJmpqPzRVS6P+kqXVCB+U9OX1SB973d/eOm43f7x/P1C0uy3+c4kUhdeLyfDijuL/KTX87+cf5LtnZaQlbmfi/fLFsr6yBL056/e3Vzx8nVUDYnhBBCNJifPOxoJJMfj7f9g0739NbJT4u+qLr89L63q6aA9/P+pBb56fPn4303oxx//lwaKGy0MJ9PVZWfvP4nb/NMqDRM6c7WCu7d30FeS/rmhBBCiA7zk4cdjXJ+ejx/2yg/ve/tBhLA8X4eFxrnpzR0hSNOKRVlCwtDdtqa1fnJ37ws7ZbpdlmlQau8eVC+tDkhhBASgPnJw47Gkv 1P5dvmMrKOpJb5aTHoF8gl6VJtYbEbrHV+Km7u/UNGsEx988K2VZsTQgghIZifPOxoJJ3u6W3L+U/hnqfPxUlDrZ9xcLzvzCDC9j8VYlFlmfX9T9rBMj8RQgipg/nJw45Gfv/dIjMVspSWn0KTnsq07X/67D3OYLX5T/7Ccn5y41FpApO3n6oOpJr5T3poY34ihBBSB/OThx2N8vOflIcXuPmp3L+UhQg/VZX6lpTYVYoRhc6t5vffpQt3e71sP9mKu73evjarO+8by2+gS2/fK+zm2BmVq7xPMN/crSptzhPzEyGEkDqYnzzsaPD9LR7NHh+1qc0JIYSQHOYnDzsazE/FsbwlHiuw4uaEEEJIAOYnDzsazE+fPxfullum92jFzQkhhBAV5icPOxrMT4QQQohRmJ887Ggklx 8+NvwpPZeAEEIIIeRV0rz/CZ32XjVGEvfS0B8L/bHQH0vs/omN/idquDA/RUPs33/6Y6E/Fvpjid3fTmJAK4hY0mB+ioPYv//0x0J/LPTHEru/ncSAVhCxpMH8FAexf//pj4X+WOiPJXZ/O4kBrSBiSYP5KQ5i//7THwv9sdAfS+z+dhIDWkHEkkb7/DSeDnZuBv1ZXsx4OtgZTVrteYlNTJW/dWL//tMfC/2x0B9L7P52EgNaQcSSRp6fbvsHnU6n279vkp/O3HSySljZUNCpLjbCdBX795/+WOiPhf5YYve3kxjQCiKWNOb56fKw0+n2L0+6DfPTaNh/yLugmJ82T+zff/pjoT8W+mOJ3d9OYkAriFjScMfv7pvnp4nMhntpBHHjyKJ36uZs52E4FgktXGzydF1eWUpb9abDv Zvrq/nSbBMnAF2NzvTy1b2Xd1oqM82I82ILg5UgYv/+0x8L/bHQH0vs/nYSA1pBxJLG0vlJ5Gp01nsqLJGn65006FyNzioWZpsEu4LyrZ77D2eL32dZkHruP5ztTZ8Xa6ZJ 6Gq0WFitVNipVqY7xys/ECSxf//pj4X+WOiPJXZ/O4kBrSBiSWOF/CSz4d7DcBwKQ2msqV4Yyk9ZElpsdXN9FSjKTUgZzZWCK2hdWThi//7THwv9sdAfS+z+dhIDWkHEksYq+UlkPB30ngo9UnnoSft11IV1+cnpXvK2ujnLf8oDcGmQqlbSR/ecMoMBC0bs33/6Y6E/Fvpjid3fTmJAK4hY0kg63dPbpfOTyKR3c92H9D9p1IwP1vY/pTA/rRv6Y6E/Fvpjid3fTmJAK4hY0lit/0m8xxksN/9JmzxeN/9JL0GZ4RTae7bTUJnMT+uE/ljoj4X+WGL3t5MY0AoiljTy5xe4lFNUMD8t8s1y99/JPL6clScwuVv1RtfKUJ1Tfrv778o7LZUZyE+THuxevNi///THQn8s9McSu7+dxIBWELGkEcX7W5w77F4rsX//6Y+F/ljojyV2fzuJAa0gYknDan5SR+VeMbF//+mPhf5Y6I8ldn87iQGtIGJJw2p+Sqc9BZ+u+cqI/ftPfyz0x0J/LLH720kMaAURSxp28xNxif37T38s9MdCfyyx+9tJDGgFEUsayeWHjw1/EkIIIYQQkrD/iZAGxP73K/2x0B9L7P6JmR4XtIKIJQ3mJ0Lqif36S38s9McSu7+dxIBWELGkwfxESD2xX3/pj4X+WGL3t5MY0AoiljSYnwipJ/brL/2x0B9L7P52EgNaQcSSBvMTIfXEfv2lPxb6Y4nd305iQCuIWNJYNj/lL0W5wT/ccslX1C31WPPqfdWa2HibnkNUz3bH1V7s11/6Y6E/ltj97SQGtIKIJY1FfrrtH2Qvvzu8qMtPV6PCG+uuRnE+4nID0UFt4M1lJhfz+clG7cV+/aU/Fvpjid3fTmJAK4hY0kgmPx4nd6fd7ultHqSOzqvy02y457/u97n/cLY3fd76AawG85MwPzUk9usv/bHQH0vs/nYSA1pBxJJGafzu7rTbOTi5C+enYESYN8Oz4d7DsD9aDO31ntI1nq69wb7xdLAzGqYvaRn0Z+3X dPc+mjRZUxadZ2c7N2e9kRMdSjv1yt8bXe/dnO2MJu7hO4OYi0A5/9d0F9dXbskPw3ED1azM3tTPqYWaT1NsdjhZbW+oEsorNPSpqKjycfmbB2qvke06if36S38s9McS u7+dxIBWELGkUcpPF0c1/U9XI62r6el60TTOhntZk/Z0vWi/8y6rvKdqPB1krXv+huDmazoUQknlmrnn/P16WeYr7dQvv9zw50V5AovckAmoWUFX9fS8fj6n5288HexNn12HbBR1Q5WgrNDMJ1hR5fwUOpzy mrW2ayb26y/9sdAfS+z+dhIDWkHEkoaXn+5Pup1u/75q/lOD/JS1+s/9h7PeU6nbIGsX054PtVmtXtOlsHnlmgV5t/zSTv3yS8Wq9VB7UNWqvp42Ttp7mv9S6lhqXF3LV4K/QiOfYEVp/U/64ai1V2m7bmK//tIfC/2xxO5vJzGgFUQsaRTy0/nbTiedCNVu/C5vw4qzo+ZtZ+FmPW0sxuu/abKmS02vRk6xr8JtoUs7Vct3fg/3VFU29pULi2Uq88zSbp7ZcM9NSO2qa4VK0D6aOp8WFdX8cGpt103s11/6Y6E/ltj97SQGtIKIJY0kC0wV4anN/PHa/qeU+n6FyjXVFWrXrO960VCLbd6t0nxhXf+TiEx6D8OreWopdjVVd9istxJa+bSrqGaHU2u7bmK//tIfC/2xxO5vJzGgFUQsaSTZsF1FeGrz/ILZcO8mbS+1Qb2arNN8TYfma9ZN/WkT4LxpPdWNfbNBvZr5TyKyqPzy9KZJr3F33XKVEFqh1ketKN8hjY/64ZSHI2tt10zs11/6Y6E/ltj97SQGtIKIJY0knTNe5O1l3fPHs7ufvBugZsO9m+veKHxXnTY1x5/O0nDNlBb5KR/6GfSn2q1n2khQg8GmytvK5nPqb66vGqhmZRbujHN5us6Pa1Hy2c7NoP+0iBQbqoTgCnU+akWlAT F1KFRUcXOt9gIyk17gfsOVif36S38s9McSu7+dxIBWELGksfb3t2izdsgymH8y02si9usv/bHQH0vs/nYSA1pBxJIG85Ml3LEq/dEDBEPs11/6Y6E/ltj97SQGtIKIJQ3mJ1tko1pxvhLnxRL79Zf+WOiPJXZ/O4kBrSBiSWPt+YmQF0js11/6Y6E/ltj97SQGtIKIJY3k8sPHhj8JIYQQQghJ2P9ESANi//uV/ljojyV2/8RMjwtaQcSSBvMTIfXEfv2lPxb6Y4nd305iQCuIWNJgfiKkntivv/THQn8ssfvbSQxoBRFLGsxPhNQT+/WX/ljojyV2fzuJAa0gYkmD+YmQemK//tIfC/2xxO5vJzGgFUQsaayQnwqvvUNQ/eKz5q9FC74kbotHt/UX4pJWxH79pT8W+mOJ3d9OYkAriFjSWOSn2/5B+uq7o/NG+Sl9z13vCeNey6qJxNLrU5iu0MR+/aU/Fvpjid3fTmJAK4hY0pjnp8vD7untj8fJj8fzt8rLg5X8NG/RLbfrzE9kfcR+/aU/Fvpjid3fTmJAK4hY0vDH7277B500S1Xkp+f+w7znyX/j/dUoff3IzaJrajwd7IyG6WtJBv1Z4R0v4+lgJ/39anS2N30WEXm6XhSShga32J2bs/kmbqoYTweLnU4Xhc//Nd3QeaVMqXC3nGxHvZGfnwohJj2ERsfrMRvuPQz7o/JW/rEstDPh1CdfwTFUa2BvdL2XHmlZdX4U/WzDJ6eQhisE67OyBuIj9usv/bHQH0vs/nYSA1pBxJKGl58uDzudbv++rv/J6ZvJQ898uROG5uuMp4OsEU3fiZvFL7kaDfYe5v/63H/w0tVz/8EpfMGkV84c+X7n749L89NNtpe0ddcKD5bj9T8VY9/e9Lnx8RaZDbNMI0/X85U1h3xhIbp5O62pgTQ4aqpzEzez5hXSYgWtPqtrID5iv/7SHwv9scTubycxoBVELGmk+eniaDH9SRu88/NTKDMVSDNW3tYWA8He9Flk0nsYXk0Hvae8JfazQiHETHo3+a6zNVWf0H7LhQfL8cfvstiXRr3Gx 1ug8IrlRZm6Q4rfO1U6hNoaUFULJurvdSsE67O6BuIj9usv/bHQH0vs/nYSA1pBxJKGNn6nTSF38tO8+6T4k43mOGNPZ146Ea+n52E4ng33RhN5ut7J/uuVUBii8ruj0tKKy7WmvZCfSoXr5WjznxaxbzbcKw+lVR+vSyE/LaKP7uAfab5+saj6GlBV15OfgvUZroH4iP36S38s9McSu7+dxIBWELGkkfizne5Ou52Dk7twfiq 3iFl/Q6HDo9S7U9x20ru57ju9UP2RMhPIpTwSVN//pOanUuGN+58k6zDzh7Hqj9dhm/1P7lYl1TX3P9XaRkzs11/6Y6E/ltj97SQGtIKIJY1kkZnSYbva/qd8+pHDYha5E3EmvbreCG/m0142IubNLs/mPmu9QTWzf8r71QpvOv9poX2mTe6pP94cf1JR0dab/6QG0+bzn9x58SXV1fNTTX0yP1mB/ljojyV2fzuJAa0gYkljPn53f9JNH/+kdT45+SlwV/+iec6H9gb9p6pxNCndeVco1rvjrDxiqCaV4n1zVX025dvZ/HIG/Wng+QXpOKMUxOqPNyd9dJZ7e1rV/Xf5jtybFsP332k1oKquIT81qc88t8V7L17s11/6Y6E/ltj97SQGtIKIJY2X9/4WS89t0inOf1o/9msgPmK//tIfC/2xxO5vJzGgFUQsabyI/OQOb0Vww/wG8lNkNRAfsV9/6Y+F/lhi97eTGNAKIpY0XkR+Sif9+ENaRtlI/1NUNRAfsV9/6Y+F/lhi97eTGNAKIpY0Xkh+ImSjxH79pT8W+mOJ3d9OYkAriFjSSC4/fGz4kxBCCCGEkIT9T2QrxP73H/2x0B8L/bEkZnpc0AoiljSYn8g2iP36RX8s9MdCfyx2EgNaQcSSBvMT2QaxX7/oj4X+WOiPxU5iQCuIWNJgfiLbIPbrF/2x0B8L/bHYSQxoBRFLGsxPZBvEfv2iPxb6Y6E/FjuJAa0gYkljhfykvpOOLFj2IeDVrzour7b0Ctsl9usX/bHQHwv9sdhJDGgFEUsahfx0/rbT6XS6/fsG+Sl9iVvpXcK2gMWIlfPTEqsZy0wusV+/6I+F/ljoj8VOYkAriFjScPLTxVGne3TYbZaf5k214QZ7AfOTDWK/ftEfC/2x0B+LncSAVhCxpJHlp/uTbufw4v6kWX567j/Me54mvZtBf5b/w9UofYvIzaJrajwd7IyG6dtF8pXH08FitanzPpOn68XmWQ6YDfcehv1RoUx1R4WF8+ySlZZFmXL 5DrWqbiRSF2YCvdH1zsPwyg002WtbSg7j6WBvdL13c+ZGUjcM5ftKK2r+r+nuisU+DMf+OGDj+t 8UsV+/6I+F/ljoj8VOYkAriFjSWOSn2/5B5+3lPEU1yE9O58rV6Gxv+pwvT1vibHbUeDrImu381bb5mvMXt11fiftiuOf+Q1rsbLh342416 M/0HalWYzXBuOU71Kk2X/jcfzjbeRiOnVfdjaeDvemz6jCeDrxgVDB39lX41zQ4ZgJ+5MrXbFb/GyT26xf9sdAfC/2x2EkMaAURSxrJ5Mfj5O602zk6T3uh6vNTKDMVSNPMeDrIYk3WqKslFLJOFoYKb9vN+r2UHakma qQobOWtXFJVt1IX+gf1MBznws/9h0F/Fi4tvN9CsY1VCwub1f8mif36RX8s9MdCfyx2EgNaQcSSRpKO3OWjeHX5ad4hVPzJMo0z0uQPJEn +e7H7J01IhW2zcbFCfip2LHlrijOGVeqw8Te5UW4eVPNHIWqkMtrC4kE52WjR7ZT3xvkOwdxTrq tK1cYL9frfJLFfv+iPhf5Y6I/FTmJAK4hY0kg63YNup0T39DaUn8qTlLMeDrerQ+2qadH/lKH1P6k7cqke0gpRmz/a9z+JyKT3MLyap6gG875b9D8tn5/Y/9QW+mOhPxb6Y7GTGNAKIpY0vOc/1fc/TXo35WcWLGaR59NrZNKr7Fypm//krDkb7t2kjX26VXBHzvyn8uiVXr5DnWr7+U/ZCtnEbc2hJvd485+qu6yaDepx/lNL6I+F/ljoj8VOYkAriFjSaJufArflLzJEPrQ36D85o3JaD1B+/9foWhmAK4ae3qh4+5i2Iynff5evWbq/TzuKWtXa++/ShYP+tHhQblYrOTTqN6oel3SypteZ16b+/bsp10fs1y/6Y6E/FvpjsZMY0AoiljQsvL+l+lFJ25id87pZ9lFVbYj9+kV/LPTHQn8sdhIDWkHEkgYoP6ljbTrMTxugRf2vh9ivX/THQn8s9MdiJzGgFUQsacD6n57TJzrWvUSP+WkjNK7/9RD79Yv+WOiPhf5Y7CQGtIKIJQ0L43fk5RP79Yv+WOiPhf5Y7CQGtIKIJY3k8sPHhj8JIYQQQgh JXk3/U+x/f9AfC/2x0B8L/bEY8aeGy9dv35mf4oD+WOiPhf5Y6I/FiD81XJifooH+WOiPhf5Y6I/FiD81XJifooH+WOiPhf5Y6I/FiD81XJifooH+WOiPhf5Y6I/FiD81XJifooH+WOiPhf5Y6I/FiD81XLL8dH/S7eS8vWR+sgb9sdAfC/2x0B+LEX9quBTy0+EF+5/sQn8s9MdCfyz0x2LEnxouzE/RQH8s9MdCfyz0x2LEnxou6vjdwckd85M56I+F/ljoj4X+WIz4U8NFmT9+2z/odI7OmZ+MQX8s9MdCfyz0x2LEnxou6v13l4cdZSyP+QkL/bHQHwv9sdAfixF/arh8/fY96XRPb92odHfa1YbwmJ+w0B8L/bHQHwv9sRjxp4bLov/p/G0emM7fdvxExfxkAPpjoT8W+mOhPxYj/tRwScfvLo7yhz9p4Yn5CQ79sdAfC/2x0B+LEX9quKjzn/j8AovQHwv9sdAfC/2xGPGnhgvzUzTQHwv9sdAfC/2xGPGnhgvzUzTQHwv9sdAfC/2xGPGnhgvzUzTQHwv9sdAfC/2xGPGnhku7/JQQQgghZOug04KIpeCCVhCZ56fLDx8b/qDPH0IIIeQ18vXbd/5Y+2nR//SZEEIIIVtknp/QvS0iljp+0Aoibcfv0GcRIYQQ8rpgfvKwo8H8RAghhBiF+cnDjgbzEyGEEGIU5icPOxrMT4QQQo hRmJ887GgslZ/e93bTmwL2j7UP3Fkh2e29D50X7mpJkw0IIYSQVwTzk4cdjTw/3fYP0ncIH5zcVeSn4/0sNh3v63HneD8QrAK87+2224AQQgh5+TA/edjRSPLw1D29bdL/dLzvRCY9+BRWaQLzEyGEEFKC+cnDjsY8P10ean1ODeY/OX1ROe97uy3H4Lz89L63u7u/v5sODx7v54N7i7Xe93Z3e739Bgvd7dNF73u7yX4vHTzkeCEhhBCbMD952NFIJj8eJ3en3c5Bt5s O3729bJif3vd2tfRxvJ/s7rYKJ+X8lIcddbhwPnNqvjhbGlw4X5Tbvu/tZmZqAiSEEEIMwPzkYUcjmfx4nFwc5XOe7k67nc7hRX1+KoQc/x+y2NRsJpSSn9TglQ0MFjZI/0dbWFiWbu6Wz6FDQgghVmF+8rCjkeWno/NFVLo/6Xa6/fvq/OT24FTSbCqUkp/87qji3XnFNRY70Rb6t/h5fVLMT4QQQuzC/ORhRyPpdE9v7067+fyn+vwU7HlSWDk/+b1Zq/Q/hcpnfiKEEGIR5icPOxqJn5ncsTw1PwUH11LcGUUNp5JX5Cdv+lPVDKbgwnx+eWkZ8xMhhBCzMD9 52NFIn/90d5pNHy9PfnLzk3sznHtXm9vRpD5fs6onqmr8Li9st3dcSED7+8U56upCV1mb88T8RAghxCrMT x52NCJ9f0vtsBwhhBASPcxPHnY0mJ8IIYQQozA/edjRYH4ihBBCjML85GFHI9L8RAghhLx8mJ887Gi0yE/+vHFCCCGEbB50WhCxFFzQCiLz/HT54WPDH/T5QwghhBBig+b9T+i0Rwh5pRj5i3Np6I8ldv/ERv8TNVyYnwghERB7+0d/LLH720kMaAURSxrMT4QQ68Te/tEfS+z+dhIDWkHEkgbzEyHEOrG3f/THEru/ncSAVhCxpMH8RAixTuztH/2xxO5vJzGgFUQsabTNT7Ph3s1Z78kraNJTFi4YTwc7o4m/9Ol652E4Xu/hbKJMEXEOQT+W0mpLrwBhjVY2D1AFf9Sz4d7N9dXmyt8QG/uWVRJ7+0d/LLH720kMaAURSxrJ5Mfj5OKo43N0Hup/uhqd+Vfzp+udcEvwkvLTEqvZavw0VjS0c4CtTLamHdwR81MLYm//6I8ldn87iQGtIGJJQ+l/On/b6by9DI/fldKSkqgcmJ8MNX4azE8bhflpHcTe/tEfS+z+dhIDWkHEkkYpP92ddjsHJ3dV85+80bpJ72bQny3+Zzwd7Nyc7dycZRdZ9+p/NTqb/2tvdF1YobiJyDylne3c5MlsPB3sjIb9h3kJ+R7VMsubZxRao6wN03a3N7reuznbGU3U8btcO20F 5/+a+hSLfRiO/XFA5ViyMnvTmsbV1Qsdr16aXrGTrDb62VZPTgnpx53V9mJh4ACb7135dIq1KsGTqliBJRO3fqpP y1qrgl7pg6sqqmhVYDbcu7nujfxzoOoDUlVrP7UGH2v1+S+hb9n2iL39oz+W2P3tJAa0goglDT8/qZ1P/vzxQofTk5daFs1etk5+9c//9bn/kLYo2ibOn+bP/Yezvenzopy0mcnXVMvUNs9x/u4fTwd70+fw7grBKHAsxX9N2yTl8P01646lLj/lK6jHq5YWOtK82t3NnRXUD0vNTBXHUv25BGo1eFKVKrCU3tzQFj4ta638ag/vt7p6PfzabvgBlVRrP7VGK1Sd//q3bKvE3v7RH0vs/nYSA1pBxJKGl58uDzudw4va+++cCHI1ypsc/w/lYvvqrln+10YLS50Hzct0eO4/zFPOc/9h0J+12J2+35TqTfyFtcdSm59CXSkPw3GgtJradkeUQr9naLVdfSx1n0u4Vlt+Ok3qR78noG5wq nq/9SezS6FWF326y6jWfmp1K9TWsPot2y6xt3/0xxK7v53EgFYQsaRRyE+3/YNO9/S2wfMLsghSGLwrXGf9q3Pxj3u1mXc3ucnHicLttF6murlL3u0UXj+Ye8r7dYoNb1K7sFhm3eSYw Ehi5q+XVnOkDfJToYSGn0vl3h30Wq08qeqruraE2rOlqtrL+anyRCpQ+IgXX6jqEnTVteSnKm39 W7ZdYm//6I8ldn87iQGtIGJJI3ECU7DzSXn+0/zy6rUNG+l/0gpvUabOpPcwvJqnqDa7q+9/Wj4/te9/UufHpNT3AJWLatLQumO1q/Q/abTrf2qcn1p06tRRn58qT6QCfv9TqSu0VIJe1Hr7nzRt9j+tDP2xxO5vJzGgFUQsaSSFzqfSYwv Cz8+cDfduBnsPxcc+rX/+U13rWDP/Kdh6XY2cSbuNd6ftN08VzYfqGh1L4/ykH2/NDCRNpq6hdea9TXpuR0V5pKzx3gtotVpzUtVVtdSW0OBsUau9ugJVqwLOtKTxdND2A2rRa9hmhe BYIec/rQT9scTubycxoBVELGlk+enysNPp9u9bPH/8aqS08flYgNaSpf866E8b338XKqeyzKr7nrIV3Jay2e4Co2ZK61ts3s68Dpi6Y3HvciqMkBbqud I/UFrlkTZqaBV0sMoAACAASURBVNP7xZ68hdqwWoO9K8fV9P67RlXdpATNqr7aw1GjWJRjVaD2/ruGqqvnp9qd6t8yvYo2Q+ztH/2xxO5vJzGgFUQsafD9LTZ5cvPl9aqtFGbMxcbel2UN1U7WRuztH/2xxO5vJzGgFUQsaTA/mcEd6HFGyp77o2XCR6C0LYHd+zpYstrJZoi9/aM/ltj97SQGtIKIJQ3mJ0M8pw9mXMsUk/WWFtfeyQsj9vaP/lhi97eTGNAKIpY0mJ8IIdaJvf2jP5bY/e0kBrSCiCWN5PLDx4Y/CSGEEEIISdj/RAgxT+z9B/THErt/YqbHBa0gYkmD+YkQYp3Y2z/6Y4nd305iQCuIWNJgfiKEWCf29o/+WGL3t5MY0AoiljSYnwgh1om9/aM/ltj97SQGtIKIJQ3mJ0KIdWJv/+iPJXZ/O4kBrSBiSaNlfvJf1b7cA3428EBq/SUkDTfZJnE+jHtzVH8Ky73lt0nJy6258sc36d2c7dwor0leC02rq/F3pJ4tnc+xt3/0xxK7v53EgFYQsaSR5qeLo06K+hY8v/9ppfDxmjPEase+XLWvNymuXtpGks2GC1mw4qm74U+/6ZEyP20b+mOJ3d9OYkAriFjSmOeny8POwcnd4+TH4+TutJv9zvy0fpifXnF+WtGE+Sla6I8ldn8 7iQGtIGJJI0kz09H5Iio5Wap5fhpPB3uj672b9E1n2evcnXWuFq+aP+uNnGtuac3xdLAzGqZv/1Be8J6Vk/5cX2njd7XlFAc7qtYUZ+CyN83bnnw0021CVjj24JHON8nWd18tl9ZD70mpn96TslXObLh3c93PD u3JOcy0NF+yojTNR6nbYgnuieQfrzogNRvuPQz7o/JeJqJuUhbWT7lsE+VMWO7j804PZ+zbzy5L1Nsq1TX/3Huj4GFWaVRUyAaJvf2jP5bY/e0kBrSCiCWNxfjd+dtOp3N0/uP+pLvU+N14Oshbhfyv2+f+QzrV4+l6x1m4uOZqa46ng+xKXffq2Umv3IK6+amynEJjU71HT37+ e77Q2Wq1Y/d36rSUeeVkep5AnrH8hcFuidlw78aVdPZS/QGppYV2XapbNe5UH2/x83XD3KA/q8xPnnDlEelnwtIfX+n00KtuqXpbpbpKn7t2Poc19ArZLLG3f/THEru/ncSAVhCxpJHPHz9/O5/9dHrb5P47JT+V/ggWya/y2SXeXaiuGSzKZ9Jz5uHq+amynEJjU7mmL+/1eNUdUfNjL+C0Z2Vnn1AJ9fmpnHq9PrzKYwxR+WkG81P4eAP3Bzz3H9Jus2b5qfqIVNvlPr4lq6 5xva1SXcWF+R8hDTXUCtkwsbd/9McSu7+dxIBWELGkkc1/6hxePE5+PN72DzrLjd8Vmij/7rzi3+ju1bl0H1+wtSvg/9EfGL+rKqe+fVX3lZZfaEUKnV7LH7tPNmTjjhj63X7aIE64Sgs0yU+VH5BSpQ0+zapAEzjeQCBY fArt8lP4iLRylvz4gqeHVnVL1Nsq1aWHqqYaeoVsmNjbP/pjid3fTmJAK4hY0kg63dPz/oHT7aQP4bXMT7VdOOGWuEl+Ko+ybTI/Ldv/1P7YQwRHvty5OKUOgzX3P6VUhYDKXbeq8GAGWmP/U+mI1DWX+/ianx7L1dsq1VXqf0rHQJtpsP+pPfTHEru/ncSAVhCxpJGkDy9I54/fnXbTvqgl85N7ddZGZ9RJJC0b14rhkg3kp6XmPy1z7L6eO1O4NMDkhMhJL+0wUBcWmkaXuvwU/IBCk8fVXas5QB2cUo9XCQQVc3ee+w/atplw5SmnnwlLfXzN5z8tX29LV5ezcDxdzFxsrsH5T+2hP5bY/e0kBrSCiCWNpDD5aennPwVHFpxrazo6MOhPtZuYtBlISnsznw9bMai0ifzkDG24Nxzl4x3q/Xftj92jfINVevh5K7go9slNPKGFpVvWa/OTKllVmr9rvW6dEtwVmt5Qptw79pzfIza9VjPETviIas+E5T6+8umhn11L1dtK1RVc2ExDr5BFP 9ZmiL39oz+W2P3tJAa0gogljZf3/pY1PttG5TU/vMoCm/58XxgvpLpib//ojyV2fzuJAa0gYknj5eWnDb0cRhk1IwheSCDYFi+kumJv/+iPJXZ/O4kBrSBiSeNF5afFIM4GXi6WDQ9tZ7YHCfNCAsG2eCHVFXv7R38ssfvbSQxoBRFLGi8qPxFCXiS xt3/0xxK7v53EgFYQsaSRXH742PAnIYQQQgghCfufCCFkw8Te/0F/LImZHhe0goglDeYnQgjZLLG33/THYicxoBVELGkwPxFCyGaJvf2mPxY7iQGtIGJJg/mJEEI2S+ztN/2x2EkMaAURSxrMT4QQsllib7/pj8VOYkAriFjSaJ+fWr34tiGbKHN1at/bumUNzLN8Xtjz1l/I85DiwOb3GkHs7Tf9sdhJDGgFEUsaaX66OEpff3dwcrf1/GST13OkVaw1P+GrVMtPeKt4aFVXr+dvrTpib7/pj8VOYkAriFjSSNLwlMami6NO5+ic+Ule05FWwfxEHJifliL29pv+WOwkBrSCiCWNZPLj8bZ/0Ome3i6i0uWh1gXVID9lr6MPvbA9Hwsbpq9DWbywvfpfxXmVfW/qtH/6HpXNVcbTwd7oei/bPOy/Nb2rUfqWmMXP9ZU2ftfkMFWlbGEhEpU8XZPeyM9PhRMgVXLNe0+lw5mXkO0oLbBhvc330s9WfnI 2LO+reqGTn65GZzs3g/7Utyqw1Dmm1PNsuPcw7I98Q5eGh7DiSRgyWe4TVE+eQj2MJmkheWxVz8PqhYuDailghtjbb/pjsZMY0AoiljSSUp/T5WGnc3jRNj/lzdJz/2HxBrpgfkov+tm7eKv/VZ6ud5zCF7+H9ljePMB4Osiv6ZX+CL1Jr9BeTlzJ+nJUpXyhs5Xm6W/uBYtZIZDtTZ/9krO21nnpcvmUaF5vMhvu3bhuTml5u64JlBe6gc+NcepnsdyHGKxn94QpBa/Gh7DiSaibLPcJquU7zNPP/DTWVJsvzA+qlYAZYm+/6Y/FTmJAK4hY0ljMfzp/28nmP3W77fOT3y5mF3o1P5Xarep/za7di8LLl1F3j7WNouusrlzy37repOe8BVnPT5XltFMqLfQ39ztmnvsP80bxuf+g5YBS25/h7q65ZGHQLfR7WUBdmHVleZ0c4e4Tr4Tayq8/hLwCA1QewoonYb1J409QL99bOfxl9w+q9jwsHVStgBlib7/pj8VOYkAriFjSKN9/t1T/U9737vSuh8fvggu1fy3+ZVnog2m0xxD+yuHStqvn/yUdGL+rKEdXKrRGVZ7FzQPt4t70eT4S5I3E6WMr7gDiwrZFvTXJT6qAsnDRlTVxc0NVfmr/Iar17EW9wjrq7sKHsOJJGDJp/wkGyveOqFRXav1oC8MH1VjADLG33/THYicxoBVELGkkzsynFeaP1y5cIT81+Nu6co8haleG6JWHhNrnp2X7n0KbK83SpPcwvJqnqGI3g 7p+eaC2kWRGXX5SBXSrbHPHs1H/k7Zwjf1PzQ9hxZNQNVnuE1zuK7ap/ifTxN5+0x+LncSAVhCxpJGUO5+6/fv2zy/wegLU6QvL5qe6uR11mwcorFBZ2tb03Ek5imfj/LTU/KfwEWl/1i8mX/vTgCY9t5vEmT1THgBtXm+1+UkVUBd688eV/Oey3DkWnv9Uml5WrM9mh7DiSaiaLPkJquU71KkuO/+psYAZYm+/6Y/FTmJAK4hY0kgmPx4nd6fddPaTGp5K+cntM89mwpZvjVlc9dK7nJbOT85OC7eDqfdzKZtPetp9Uv 4FN1zahvVS5hN7KwaMmuengFL+2an33yn3PQ3608C0kqfrYvpMP+gn7wa30m1o3mBQg3qrH79TB YIL3c3Pek++lX+YrT7EUD3Phns3171R+K69xoew4kmomyz7CaonT6EeKlVb3H83cnvyqgX07zuU 2Ntv+mOxkxjQCiKWNKJ7f8tSs0TH0+stXU83Ool1uWdnm55XmxKF5Cps87nn1ZUZ6RPY4z5DYm+/6Y/FTmJAK4hY0oghP6njCG147o82eOVdWa8xjZuQ7SmtQBSSa2PDqaVFZcaTn17QGRJ7+01/LHYSA1pBxJJGDPnJGQe0eYvNFvQWu2j8hBvjNTYnCsk1sfHU0rgy48lPL+gMib39pj8WO4kBrSB iSSOO/EQIIfESe/tNfyx2EgNaQcSSRnL54WPDn4QQQgghhCSvpv8p9r8/6I+F/ljoj4X+WIz4U8Pl67fvzE9xQH8s9MdCfyz0x2LEnxouzE/RQH8s9MdCfyz0x2LEnxouzE/RQH8s9MdCfyz0x2LEnxouzE/RQH8s9MdCfyz0x2LEnxouzE/RQH8s9MdCfyz0x2LEnxouTn5yXoF3eMH8ZA76Y6E/FvpjoT8WI/7UcMny0+Vh9ubgi6NO5+DkjvnJFvTHQn8s9MdCfyxG/Knhkuani6NO5+h8EZXuT7pKFxTzExb6Y6E/FvpjoT8WI/7UcFnkp9v+Qad7euvkp0VfFPOTGeiPhf5Y6I+F/liM+FPD5eu378m5n58ez98yP5mD/ljoj4X+WOiPxYg/NVy+fvueHF6w/ykC6I+F/ljoj4X+WIz4U8Pl67fvyckd5z9FAP2x0B8L/bHQH4sRf2q4fP32PblN779bZKZClmJ+sgL9sdAfC/2x0B+LEX9quKjPf1IeXsD8BIf+WOiPhf5Y6I/FiD81XL7y+eOxQH8s9MdCfyz0x2LEnxouzE/RQH8s9MdCfyz0x2LEnxouzE/RQH8s9MdCfyz0x2LEnxouzE/RQH8s9MdCfyz0x2LEnxou7fJTQgghhJCtg04LIpaCC1pBZJ6fLj98bPiDPn8IIYSQ18jXb9/5Y+2nRf/TZ0IIIYRskXl+Qve2iFjq+EEriLQdv0OfRYQQQsjrgvnJw44G8xMhhBBiFOYnDzsazE+EEEKIUZ ifPOxoMD8RQgghRmF+8rCjsVR+et/bTW8K2D9WP/F8jd3e+/CJ8b63qxRxvJ8k+8ef3/d2Q8UTQgghrwDmJw87Gnl+uu0fdDqdbv++Lj8t4k36qxKQ8sXve7vVCcopzF/E/EQIIeR1w/zkYUdjnp8uDzudbv/ypNsgPx3vO4lIzTiFNeooBahsAfMTIYSQ1w3zk4cdDXf87r5RfiqgdB+1zT1eEXn4csvRxwOP97 1RxPe93d39/d1sibZCst9LC2ue8gghhJDtw/zkYUdjpfykj84d7ye7veM0o9QnqUKAcvqu8vzkjRjOf83/OdcozKcKrrDYgZb9CCGEEDswP3nY0UjOl81P+tzvz4tOHyej1PbyOB1N7tBftrjQoZWuEVxYjl9 NViCEEELMwfzkYUcjObxYJj+5/Tg+9ROkfLKV9E3Vpc49gPlYnD7kV7EC8xMhhBC7MD952NFITu5a56dgz1P+z9m/Ngsp87W8dVv0P2m7Xm4FQgghxAzMTx52NJLbtuN3tY8kcDuMms4xet/bTXZ3i3mm8fynQNKqW4H5iRBCiG2YnzzsaOTPL3App6gsP2W3tGVkGcdJVfngmTYzXON4359s3u L+u9CUpsoVmJ8IIYTYhvnJw44G399CCCGEGIX5ycOOBvMTIYQQYhTmJw87GsxPhBBCiFGYnzzsa DA/EUIIIUZhfvKwo9EiP/nzxgkhhBCyedBpQcRScEEriMzz0+WHjw1/0OcPIYQQQogNmvc/odPeq8ZI4l4a+mOhPxb6Y4ndP7HR/0QNF+anaIj9+09/LPTHQn8ssfvbSQxoBRFLGsxPcRD795/+WOiPhf5YYve3kxjQCiKWNJif4iD27z/9sdAfC/2xxO5vJzGgFUQsaTA/xUHs33/6Y6E/Fvpjid3fTmJAK4hY0mifn8bTwc5osm3Vp+udh+F423u1Q+zff/pjoT8W+mOJ3d9OYkAriFjSWOSn2/5B9vLgw4sXl5+Wc8YcqU7s33/6Y6E/Fvpjid3fTmJAK4hY0kgmPx4nd6fd7ultHqSOzpmflt5qM8T+/ac/FvpjoT+W2P3tJAa0gogljdL43d1pt3NwctcgP42ng53RsP9wtnNztnMz6M+UPYyng52bs52bs95 0uHdzfVVcWIhET9eLhU5kuRqdLTYfOflJW9Ml22qxSbZ+WkK+ws1Z76m01XxhaSsosX//6Y+F/ljojyV2fzuJAa0gYkmjlJ8ujpr2P42ngyw2XY20NPN0vbPITM/9h7PF7/lCZ6tZlq6e+w9ne9NnZfN5jlHX9Hbq5KT5CoWeJE8gz1j+QvY/rQ/6Y6E/Fvpjid3fTmJAK4hY0kiKUen+pNvp9u8bzX8aTwdZUlGjRhZfRPKA4keZclJJF/qbh9cs4CShjGASCpXA/LRm6I+F/ljojyV2fzuJAa0gYkkjcWeLn7/tdNKJUA3H7ybeQodi/1Dab1RIRenCfEQvHzIrbu5mGn/NEtnQmzti6OgVCnEjYHEh89P6oD8W+mOhP5bY/e0kBrSCiCWNJJvqVBGelstPy/Y/hTZvn2my8UFf1Z1KlRWrLmR+Wg/0x0J/LPTHEru/ncSAVhCxpJHcpsN2FeFpyfy01Pwnp6ia+U/6Tt0kVMhPpYUik17a1aQuLIQqMLF//+mPhf5Y6I8ldn87iQGtIGJJI0nnjBd5e7mO/OTef+fcQFdz/52zMF1z0J9q998Fwo1//53MU1ca4Ba/n+3cDPpPaRqrWjiPa5Ne4B7DrRD795/+WOiPhf5YYve3kxjQCiKWNLb2/pbX/gDxFYn9+09/LPTHQn8ssfvbSQxoBRFLGpvMT4FRM7IEsX//6Y+F/ljojyV2fzuJAa0gYkljs/1Pz+nTNY08hTJeYv/+0x8L/bHQH0vs/nYSA1pBxJLG1sbvyErE/v2nPxb6Y6E/ltj97SQGtIKIJY3k8sPHhj8JIYQQQghJ2P9EtkLsf//RHwv9sdAfS2KmxwWtIGJJg/mJbIPYr1/0x0J/LPTHYicxoBVELGkwP5FtEPv1i/5Y6I+F/ljsJAa0goglDeYnsg1iv37RHwv9sdAfi53EgFYQsaTB/ES2QezXL/pjoT8W+mOxkxjQCiKWNNrnp/ztK+6P+/K4m7O96TD95Tm49yV4QQ8xX+PLiVsUBavA2K9f9MdCfyz0x2InMaAVRCxpLPLTbf8gffXd0Xl9f gq11lnzvKF2+gXlp2papSvmp81Dfyz0x0J/LHYSA1pBxJLGPD9dHnZPb388Tn48nr9VXh7cND+prxZeJ8xPK67M/LQk9MdCfyz0x2InMaAVRCxp+ON3t/2DTpql2uUnbVzv+kpEnq6LY3zzEobpq10G/VmN5tVoUWBvtGj+XQc1tLkL90bXezdnO6NJVk5Bzyl/5+as9+TvNF84G+7dXPfTw+w95YecbaWiHm+hGr0qyv5Xyzr5TqfDvZvrq2JR1ceSVeDWif36RX8 s9MdCfyx2EgNaQcSShpefLg87nW7/vvX8p3lTrUSZ2aKNn78Lbz4dajwdZDGi/r3CT9c7TglL5KcsJzlMelm8yMuXq9FZPv5YXjgb7mUzup6us9ld7muSVdTjra8itVq82vDyU82x 5BW4dWK/ftEfC/2x0B+LncSAVhCxpJEsZjtdHC2mP2mDd8uP3/m9LFn6SVvx2rGnq5EzCf1pmf6nUmKY9EIT29XhrWxhHnTCv2uox1tfRVq1+LVR6n8qa6sVuHViv 37RHwv9sdAfi53EgFYQsaSRHF6Uxu+0KeQr5Ce3pyqcfgLkXTIiy+anQvnFArOVi4b6wlXyU1is toqC8jNl/K6krVfg1on9+kV/LPTHQn8sdhIDWkHEkkZycleMSnen3c6Bv3A9/U+l1apLm7OG/ien/PJwYaGDSushW0//U3V+qqyiqtoo5idVm/1P64D+WOiPhf5Y7CQGtIKIJY3kdp6Z0mG7Nfc/udmiOugEUafveAv92T/5Qn9udSk9OIlq0ku7f9SFG8pPwSpSg07l/Cddm/Of1gD9sdAfC/2x2EkMaAURSxrz+eP3J9308U9a51OD52eWO0LKN5dpc56c3ye9wL146R4H/WnWffKc3842vU5LUBYWY8pZeaTMWT7oP6VRJriwOj/ph1DfMVa+4W4hoMSy/P678t2IqrZegcHa3gyxX7/oj4X+WOiPxU5iQCuIWNKw9P6W8fR6iy36RtjqIcT0NKzYr1/0x0J/LPTHYicxoBVELGkYyk/P/VEsaSDExg/BHderf/SDIWK/ftEfC/2x0B+LncSAVhCxpGEoP5EmZGOUqJlMyxH79Yv+WOiPhf5Y7CQGtIKIJQ3mJ7INYr9+0R8L/bHQH4udxIBWELGkkVx++NjwJyGEEEIIIQn7nwh5BcT+9zf9sdAfS2KmxwWtIGJJg/mJkJdP7O0H/bHQH4udxIBWELGkwfxEyMsn9vaD/ljoj8VOYkAriFjSYH4i5OUTe/tBfyz0x2InMaAVRCxpMD8R8vKJvf2gPxb6Y7GTGNAKIpY0VshP/86Sv3+++4kQj4zff62tov68+/TfX/82WPHnrzd/z/63QZNNk6rqB5JS/a+1hb8aYm8/6I+F/ljsJAa0gogljUJ+On/b6XQ63f59g/z0592n//76Z5b88xvjvgpLNrpLg8hPGzepZA013EyV+akZsbcf9MdCfyx2EgNaQcSShpOfLo463aPDbrP8N G+3th1E1gTz06ZhfjJG7O0H/bHQH4udxIBWELGkkeWn+5Nu5/Di/qRZfhp/+TnvefrfP/+9+fIn/4d/Z8nf/y1+5l1TP3+9+Xv27svP+cJ85Z+/3ixW++Vkgt9/LTZ3GsW8zKzN+/Pu0893X2aFHal7VzbPdqG1oDUl1B2UWtQ/M6e11g6wWuDnrzefZn99mm+Sdvv5+y0V6wYL1USpVedDKVT1f399yT6s384H17iGm1dgWdU9kPI 5M//XdCsnWVaeSNWfSJMPNzZibz/oj4X+WOwkBrSCiCWNRX667R903l7OU1SD/PS70Ax/+jXOl6dtWDY76uevN1kj9O8sbaXyNcdffqYtX965Mv7yMy1W3defd5/+c4t68+WPvnd182CnRaiEhgelFzX+8jMtSj3AOoGfv97kyeDPu0//OTUTrrf8GFUTtVa9vc839/folN+whpc+K7z8pJ0z80Q1z2RFZ+1EavaJ1H+48RF7+0F/LPTHYicxoBVELGkk5z8eJ3en3c7RedoLVZ+fQpmpgDv/N21fs7ZQLcFvdEvxJacwjJV1hil7VzdvNOijDvFUHpSLf4DlqdC1Q0javooH/r9/sg6hUrHBqm5YLdma7h7V31vVcKuzovpAsnOmVI56IM0/kdoPN0Jibz/oj4X+WOwkBrSCiCWNZD5md3iRj+LV5ad530/xJ4sv+QDQf6X+g/z3Yu/LH2csxi22PMKiNuRet0eDzSsaRbWEZgflUjxAt2FWD7BSoFC+FhzVYvWq/q2NWzmdQ+UPpT4/NajhZc4KP+KEz5nSB6FVSItPpO7DjZHY2w/6Y6E/FjuJAa0gYkkjObm7POyU6J7ehvJTuUXJ/l4v9JRof+K36H/S0AZopBAjSntXNw/tKOjf7KC8fdX0dmjU7qvU//Tmyx+92Jr+p9pqad7/VFfU8mdFw/4nNT+t8IkwP9mD/ljoj8VOYkAriFjSSIo5qb7/aTFmVGTRkDuTRf73T/Vf8zXzn4ptoTsNWZ+U89e/Et57afNCi+6gltDioFxqZtsE2/jqfbkHns+LCtVb9aSicq0G5z9V5afaGl7+rGg4/6lcjlrPjT8R5id70B8L/bHYSQxoBRFLGt7zM2vzU2DWzqKNzIf23nz5XTXCIu69VOrNUM5e9PvvyrehaXsPb54EplWVSmhz UC7pAb758qvmAKsFyv1PVfffaRN3VJNW999V9z/V1PAyZ0WuWn3OBD8IrZ4bfiKBMv1bTaMi9vaD/ljoj8VOYkAriFjSsPD+liUexrPiY5BI7Ly6BzitSOztB/2x0B+LncSAVhCxpAHKT4HxncYwP70+Vj1nXjWxtx/0x0J/LHYSA1pBxJIGrP9pnD6fcKmX6DE/vUZWO2deNbG3H/THQn8sdhIDWkHEkoaF8TtCyGaJvf2gPxb6Y7GTGNAKIpY0kssPHxv+JIQQQgghJGH/EyHEPLH3H9AfS+z+iZkeF7SCiCUN5idCiHVib//ojyV2fzuJAa0gYkmD+YkQYp3Y2z/6Y4nd305iQCuIWNJgfiKEWCf29o/+WGL3t5MY0AoiljSYnwgh1om9/aM/ltj97SQGtIKIJY22+enPu0/6++/KC6to9Cbd9T0gMe63mJl51nbwTX9lvUrn8pvmlFfXbegRX5uuTDMf1pI0++Cab7ImYm//6I8ldn87iQGtIGJJY56f7k+6nZy3l1X9T8qjn533zjak9r3364X5aYOsIz8pMD9BWMKf+ake+mO J3d9OYkAriFjSyPPT4UXD8btSWlriZRrMTy0w3iQzP22z/E3D/LQR6I8ldn87iQGtIGJJY4n85I/WFd5Ln77iXn3vfZIFr3nD+e/MWfj7L3dDt2XNNv/nl9OmZutX57A/7z7999cXrbTCRb9U2s9fbz7N/vqULdFW+Hv2Ln2jSF4D7n7zg01//3eWfPo1VjW8PaaVk/wzc9qnthqBQ9a3yupqvt/fTs3/9itW1Wvj3GL87t+ZfmjNT4yymFfbNeetttDdqX7gLkt9cFmxfzvfuPLCUFEr1k/F59XokNdJ7O0f/bHE7m8nMaAVRCxplMfvDk7u6uaPFzqcfnstpdOi5MmjEJskvbLPr/7Zmuol29l8/vozr3Edf/m5SCQ5xezy6ddYK80x1EpzQ094hUVbpfXAjb/8zA7wzaef8zXHX+a/aBqFPXpHPa/hZTQq9lXa6s+7T/+llfn7r7//c3bhtamqXivnxvnp31ngbXfNTwxNLFDb+nmrLXR2qh64y1o+OL+S84V6UavXT0V+SHSWMgAABN1 JREFUqj3kNRN7+0d/LLH720kMaAURSxrJeTEn3fYPOp2j8+r85PUNZPGl0PGT5ip3hYysSZbAX7fZ74XN06u2uiOHLLs s8oo+YPRb+VO7sLBk2GgF5xg//RqL/O+fn+/+/fXmn995vdUW6B/1Ep5uVTfcyh0y034PfijlD7rWuVl++uJ4ejQ/MYJitZ9vbVFpwiuXv+RHEKJykFQtag31E85PtYe8bmJv/+iPJXZ/O4kBrSBiSSMpDdtdHnaUsTzv+QVZQCkM3hWuqouGUOsfajA6kP5e3NxtyP/LRzHUFuvTr7H8efep2Bhohnpp6gBi1Qqh+5L+vPs0+5/8/uvv7L8VGotCikftNmntNer2tUR+UvWWca7LT8mnX//LuvGKND8xwmLOUFS5qPqTWV0Yyk9LnD/ehm5Cqi9qnfVT+pjqD3ndxN7+0R9L7P52EgNaQcSSRuKP1t2ddrUhPP/5T/MrqXfdb9f/1Cg/NfgzWmfR6xMaMHINa7ttlltB5H///PfXF6cX6stMmUhU36Kvz7O6ddx4/1NJqcn4Xah5bn5iNO9fCZqvsf9JWxhcwR0ZL3U1VR/LJuqH/U/LQn8ssfvbSQxoBRFLGsntj8fzt3lgOn/b6XRPb+ufn/nn3af/3nzy+gaazH+qvjqXRzRqpnEEs5Q76VgrTZ3/FEhadSuEHQozn9Lfw3OS3Aa7ai5RG426fS2Rn5aa/1QVm6ryUyCCtzgx6ub3bHH+U4sPzpkU9b9/0q4mdaFe1Gr14y/0nDn/qR30xxK7v53EgFYQsaSRTH48Ti6O8oc/aeFJf/74v7P8frqMfICgwf134v3+592ndB11+Ey/qyt07U4Hy5TdVdx/F5qSUrlC5fhLaQpwQEPpzJvfTvWr6qjbDQNVb9U8PwX02jo3zE+Bp7a2ODHKYoHabnP/3azuwF2W+OAWX4fk7//efPldGNb0FoaKWqV+0tSVLlQzn79JYTR/rcTe/tEfS+z+dhIDWkHEkkZc72+J/eE6pJblHvsEOTEiOhsjUtWJvf2jP5bY/e0kBrSCiCUN8/nJHdRb4kGdJDIat/SQEyOiszEi1QbE3v7RH0vs/nYSA1pBxJKG+fzkjCNsYZoFAbL4oJWpTpXrb/fEiOhsjEi1ltjbP/pjid3fTmJAK4hY0oggPxFCXjmxt3/0xxK7v53EgFYQsaSRXH742PAnIYQQQgghyavpf4r97w/6Y6E/FvpjoT8WI/7UcPn67TvzUxzQHwv9sdAfC/2xGPGnhgvzUzTQHwv9sdAfC/2xGPGnhgvzUzTQHwv9sdAfC/2xGPGnhgvzUzTQHwv9sdAfC/2xGPGnhgvzUzTQHwv9sdAfC/2xGPGnhkshP932D9J34OWvE2Z+MgL9sdAfC/2x0B+LEX9quOT56bZ/EHpzMPOTBeiPhf5Y6I+F/liM+FPDJctPl4danxPzkx3oj4X+WOiPhf5YjPhTwyXNT3en3c5Bt5sO3729ZH6yBv2x0B8L/bHQH4sRf2q4fP32PTn/8Ti5OMrnPN2ddjudwwvmJ1vQHwv9sdAfC/2xGPGnhsvXb9+Tw4t5fjo6X0Sl+5Nup9u/Z34yBf2x0B8L/bHQH4sRf2q4fP32PTm5W4zfpfOfmJ8sQn8s9MdCfyz0x2LEnxouX799/z/sLK/wSlJ45AAAAABJRU5ErkJggg==

The gray text are titles, so no colouring next to the titles
In you code it all starts at row 11, but there are more rows then just the one on top...
I thought, maybe I could add a column on the left side, enter something like T where teh row has a title
Then (dono if this is the correct way) let the code see if the row has a character "T" in the first cell and the ommits the rest of the code....

Hope it is possible...

Thanks for your kind help

JP

Sorin Sion
10-26-2011, 06:02 AM
Replace
If i < 11 Then Exit Sub with
If Asc(Left(Range("A" & i) & "0", 1)) < 65 Then Exit Sub
This is based on the asumption that your title column is A and always the titles start with a number.

JEPEDEWE
10-26-2011, 06:35 AM
This looks super..

I'll test the code later this evening!
Thanks a lot

Problem solved (I think)

(up to the next one (I will start a new subject for this one)

Hope to be able to help YOU sometimes in the future

JEPEDEWE
10-26-2011, 07:04 AM
small remark,

your code will check for a number, but not for an empty cell... (I think)

Sorin Sion
10-26-2011, 07:11 AM
your code will check for a number, but not for an empty cell... (I think)
Actually it will, because each empty cell will be treated as an "0" by the Range("A" & i) & "0" part :)

JEPEDEWE
10-26-2011, 02:28 PM
Great... works perfectly
Thanks a lot
JP, Belgium