Macro or VBA code

[Alpacino]

<TABLE style="WIDTH: 338pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=449><COLGROUP><COL style="WIDTH: 20pt; mso-width-source: userset; mso-width-alt: 950" width=26><COL style="WIDTH: 48pt" span=5 width=64><COL style="WIDTH: 40pt; mso-width-source: userset; mso-width-alt: 1938" width=53><COL style="WIDTH: 38pt; mso-width-source: userset; mso-width-alt: 1828" width=50><TBODY><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 20pt; HEIGHT: 15pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 height=20 width=26> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; WIDTH: 48pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 width=64>A</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; WIDTH: 48pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 width=64>B</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; WIDTH: 48pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 width=64>C</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; WIDTH: 48pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 width=64>D</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; WIDTH: 48pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 width=64>E</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; WIDTH: 40pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 width=53>F</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; WIDTH: 38pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 width=50>G</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; HEIGHT: 15pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=20>1</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>Absence</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>Reviews</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>Bronze</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>Silver</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>Absence</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 align=right>2.9</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>G</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; HEIGHT: 15pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=20>2</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 align=right>20</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 align=right>15</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 align=right>10</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 align=right>10</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>Reviews</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 align=right>21</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>R</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; HEIGHT: 15pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=20>3</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>Bronze</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 align=right>100</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>G</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; HEIGHT: 15pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=20>4</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>Silver</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 align=right>95</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65>R</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; HEIGHT: 15pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=20>5</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; HEIGHT: 15pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl66 height=20>6</TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD><TD style="BORDER-BOTTOM: #f0f0f0; BORDER-LEFT: #f0f0f0; BACKGROUND-COLOR: transparent; BORDER-TOP: #f0f0f0; BORDER-RIGHT: #f0f0f0" vAlign=top align=left><?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t201 path="m,l,21600r21600,l21600,xe" o:spt="201" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><vath o:connecttype="rect" fillok="f" strokeok="f" o:extrusionok="f" shadowok="f"></vath><?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o:lock shapetype="t" v:ext="edit"></o:lock></v:shapetype><v:shape style="Z-INDEX: 1; POSITION: absolute; MARGIN-TOP: 0.75pt; WIDTH: 75.75pt; HEIGHT: 17.25pt; MARGIN-LEFT: 2.25pt; mso-wrap-style: tight" id=_x0000_s1029 o:insetmode="auto" strokecolor="windowText [64]" stroked="f" fillcolor="window [65]" filled="f" o:button="t" o:gfxdata="UEsDBBQABgAIAAAAIQA0Ev94FAEAAFACAAATAAAAW0NvbnRlbnRfVHlwZXNdLnhtbKSSy07DMBBF
90j8g+UtSpyyQAg16YLHEliUDxjsSWLhl2y3tH/PJE0kqEo33Vj2zNy5x2MvVztr2BZj0t7VfFFW
nKGTXmnX1fxj/VLcc5YyOAXGO6z5HhNfNddXy/U+YGKkdqnmfc7hQYgke7SQSh/QUab10UKmY+xE
APkFHYrbqroT0ruMLhd56MGb5RO2sDGZPe8ofCAJruPs8VA3WNVc20E/xMVJRUSTjiQQgtESMt1N
bJ064iomppKUY03qdUg3BP6Pw5D5y/TbYNK90TCjVsjeIeZXsEQupNHh00NUQkX4ptGmebMozzc9
Qe3bVktUXm4szbCcOs7Y5+0zvQ+Kcb3ceWwz+4rxPzQ/AAAA//8DAFBLAwQUAAYACAAAACEArTA/
8cEAAAAyAQAACwAAAF9yZWxzLy5yZWxzhI/NCsIwEITvgu8Q9m7TehCRpr2I4FX0AdZk2wbbJGTj
39ubi6AgeJtl2G9m6vYxjeJGka13CqqiBEFOe2Ndr+B03C3WIDihMzh6RwqexNA281l9oBFTfuLB
BhaZ4ljBkFLYSMl6oAm58IFcdjofJ0z5jL0MqC/Yk1yW5UrGTwY0X0yxNwri3lQgjs+Qk/+zfddZ
TVuvrxO59CNCmoj3vCwjMfaUFOjRhrPHaN4Wv0VV5OYgm1p+LW1eAAAA//8DAFBLAwQUAAYACAAA
ACEAvJDjfboBAAAFBAAAHwAAAGNsaXBib2FyZC9kcmF3aW5ncy9kcmF3aW5nMS54bWysU9tO3DAQ
fa/Uf7D8DglZSktEFrVLQZVQu2rhAwZnklj4Jtuk4e87zgVW+0Ar6NvYc3zmzBnP2fmgFevRB2lN
xY8Oc87QCFtL01b89uby4BNnIYKpQVmDFX/EwM/X79+dQdl6cJ0UjBhMKKHiXYyuzLIgOtQQDq1D
Q7nGeg2Rjr7Nag+/iVmrrMjzk0yDNHz9THUBEdiDl6+gUlbcY70B00MgSiXK3ZtZoxJvZ4bS9Ffe
/XJbn5SL7/3WM1lXnJwzoMkins2JGUbHbO9V+0wwNF4nvG0aNlR8tSqOi+IDZ480jdXxKqd45MMh
MkGA05Mi3TFBgOLoNP8450X34y8Movv6IgeJnMRQsCPQSZH0mX4rxX7PxdLzpkNxz77YgS1yyJcF
TwzXNJ7AjN10YFr8HByKSA2m1qhaMnECj0Y9PbxT0l1KpVL9FM9j9P8yRfJTCryw4kGjidN/86gg
0kcPnXSBM1+ivkManf9Wj1KgDNFjFF0q2FDhnyRzkviUIIW7ssL8D/7PGIl8IXI+xCu0mqWAJJKS
cVWgvw6zpgUyejgJIQJymy72FmCEzAubtmz3vP4DAAD//wMAUEsDBBQABgAIAAAAIQBTUolh0gAA
AKsBAAAqAAAAY2xpcGJvYXJkL2RyYXdpbmdzL19yZWxzL2RyYXdpbmcxLnhtbC5yZWxzrJDBSgQx
DIbvgu9QcreZ2YOIbGcvIuxV1gcIbaZTnKalreK+vdW9OLDgxUsgCfny8e8Pn3FVH1xqSGJg1AMo
FptcEG/g9fR89wCqNhJHaxI2cOYKh+n2Zv/CK7V+VJeQq+oUqQaW1vIjYrULR6o6ZZa+mVOJ1Hpb
PGayb+QZd8Nwj+U3A6YNUx2dgXJ0O1Cnc+6f/2aneQ6Wn5J9jyztygts3Ys7kIrnZkDry+RSR91d
Aa9rjP+pEWKPYKMR2QXCn/mos/hvDdxEPH0BAAD//wMAUEsDBBQABgAIAAAAIQD9wVrvzgYAAD0c
AAAaAAAAY2xpcGJvYXJkL3RoZW1lL3RoZW1lMS54bWzsWU9vG0UUvyPxHUZ7b+P/jaM6VezYDbRp
o9gt6nG8Hu9OM7uzmhkn9Q21RyQkREFckLhxQEClVuJSPk2gCIrUr8Cbmd31TrwmSRuBKM0h3n37
m/f/vXmze/Xag4ihQyIk5XHHq16ueIjEPp/QOOh4d0aDS+sekgrHE8x4TDrenEjv2ub7713FGz6j
yZhjMRmFJCIIGMVyA3e8UKlkY21N+kDG8jJPSAzPplxEWMGtCNYmAh+BgIit1SqV1lqEaextAkel
GfUZ/IuV1ASfiaFmQ1CMI5B+ezqlPjHYyUFVI+Rc9phAh5h1POA54Ucj8kB5iGGp4EHHq5g/b23z
6hreSBcxtWJtYd3A/KXr0gWTg5qRKYJxLrQ6aLSvbOf8DYCpZVy/3+/1qzk/A8C+D5ZaXYo8G4P1
ajfjWQDZy2XevUqz0nDxBf71JZ3b3W632U51sUwNyF42lvDrlVZjq+bgDcjim0v4Rner12s5eAOy
+NYSfnCl3Wq4eAMKGY0PltA6oINByj2HTDnbKYWvA3y9ksIXKMiGPLu0iCmP1apci/B9LgYA0ECG
FY2Rmidkin3IyR6OxoJiLQBvEFx4Ykm+XCJpWUj6giaq432Y4NgrQF49//7V86fo1fMnxw+fHT/8
6fjRo+OHP1pezsIdHAfFhS+//ezPrz9Gfzz95uXjL8rxsoj/9YdPfvn583IgVNDCwhdfPvnt2ZMX
X336+3ePS+BbAo+L8BGNiES3yBHa5xHYZhzjak7G4nwrRiGmzgocAu8S1n0VOsBbc8zKcF3iOu+u
gOZRBrw+u+/oOgzFTNESyTfCyAHucs66XJQ64IaWVfDwaBYH5cLFrIjbx/iwTHYPx05o+7MEumaW
lI7veyFx1NxjOFY4IDFRSD/jB4SUWHePUsevu9QXXPKpQvco6mJa6pIRHTuJtFi0QyOIy7zMZgi1
45vdu6jLWZnV2+TQRUJBYFai/Igwx43X8UzhqIzlCEes6PCbWIVlSg7nwi/i+lJBpAPCOOpPiJRl
a24LsLcQ9BsY+lVp2HfZPHKRQtGDMp43MedF5DY/6IU4SsqwQxqHRewH8gBSFKM9rsrgu9ytEH0P
ccDxynDfpcQJ9+mN4A4NHJUWCaKfzERJLK8T7uTvcM6mmJguAy3d6dQRjf+ubTMKfdtKeNe2O94W
bGJlxbNzolmvwv0HW/Q2nsV7BKpieYt616HfdWjvre/Qq2r54vvyohVDl9YDiZ21zeQdrRy8p5Sx
oZozclOa2VvCBjQZAFGvMwdMkh/EkhAudSWDAAcXCGzWIMHVR1SFwxAnMLdXPc0kkCnrQKKESzgv
GnIpb42H2V/Z02ZTn0Ns55BY7fKJJdc1OTtu5GyMVoE502aC6prBWYXVr6RMwbbXEVbVSp1ZWtWo
ZpqiIy03WbvYnMvB5blpQMy9CZMNgnkIvNyCI74WDecdzMhE+93GKAuLicJFhkiGeELSGGm7l2NU
NUHKcmXJEG2HTQZ9djzFawVpbc32DaSdJUhFcY0V4rLovUmUsgxeRAm4nSxHFheLk8XoqOO1m7Wm
h3ycdLwpHJXhMkog6lIPk5gF8JLJV8Km/anFbKp8Ec12ZphbBFV4+2H9vmSw0wcSIdU2lqFNDfMo
TQEWa0lW/1oT3HpRBpR0o7NpUV+HZPjXtAA/uqEl0ynxVTHYBYr2nb1NWymfKSKG4eQIjdlM7GMI
v05VsGdCJbzxMB1B38DrOe1t88htzmnRFV+KGZylY5aEOG23ukSzSrZw05ByHcxdQT2wrVR3Y9z5
TTElf0GmFNP4f2aK3k/gFUR9oiPgw7tegZGulI7HhQo5dKEkpP5AwOBgegdkC7zihceQVPBi2vwK
cqh/bc1ZHqas4SSp9mmABIX9SIWCkD1oSyb7TmFWTfcuy5KljExGFdSViVV7TA4JG+ke2NJ7u4dC
SHXTTdI2YHAn88+9TytoHOghp1hvTifL915bA//05GOLGYxy+7AZaDL/5yrm48FiV7XrzfJs7y0a
oh8sxqxGVhUgrLAVtNOyf00VzrnV2o61ZHGtmSkHUVy2GIj5QJTAiySk/8H+R4XP7EcMvaGO+D70
VgTfLzQzSBvI6kt28EC6QVriGAYnS7TJpFlZ16ajk/Zatllf8KSbyz3hbK3ZWeJ9Tmfnw5krzqnF
i3R26mHH15a20tUQ2ZMlCqRpdpAxgSn7mLWLEzQOqh0PPihBoB/AFXyS8oBW07SapsEVfGeCYcl+
HOp46UVGgeeWkmPqGaWeYRoZpZFRmhkFhrP0M0xGaUGn0l9O4Mud/vFQ9pEEJrj0o0rWVJ0vfpt/
AQAA//8DAFBLAwQKAAAAAAAAACEASf3DfGAEAABgBAAAGgAAAGNsaXBib2FyZC9tZWRpYS9pbWFn
ZTEucG5niVBORw0KGgoAAAANSUhEUgAAAJ8AAAAlCAYAAABcSjvzAAAAAXNSR0IArs4c6QAAAARn
QU1BAACxjwv8YQUAAAAJcEhZcwAAFxEAABcRAcom8z8AAAP1SURBVHhe7ZoxixNBFMcvnBhjgiie
pYWNpEyjhYitiAgBo2hhoeQb5ANcIEUIYm1SXHNESSf4JazsDiysVI40IgeKYBXfk3v4fL7ZndyO
3pL8Fx6X252defOf3755M7sbGzigABSAAlAACkABKAAFoAAUgAJQAApAASgABaAAFFh1BU5SB8+R
nU9kZ6meE6suGvqXRoErVM1zslkie0r1XE7jGmpZdQXubW5ufm21Wot2u13Ims3mgsT6QHZj1UVD
/9IocLdWq30ejUaL+XxeyHq9HsP3nux6GtdQy6or0G40GvvT6XRR9GCASaw9smslEK1/GIVPlcCX
ZV24QDd8I3u27I1HKH+a7nlL9prsv+fq7Xq9vj+ZTIqyt+j3+zHwSWdDwr5KBM1R4EvVNjMQqusB
XWOdnhhQNHDrBd94PC4M3/b2NuD7TZRAZlMQhpJ1sg/fVTr34xBKwLcsjYDvj1imYZILEvUnTnRn
WL+QXSIDfCWAT0/RPI1yxJAVtc3l9HUexJdmgCXiSB02+njXeeUu7Ugkk/vzciQvl2Ig52QPD/8y
aHJw+1Knhk/7pf2R+2L8yipz/DlfSaddEUbnSJ5YPEASNXhQpIwerFsZOZYGwBtgBturPw9Am/cx
BHzPGTJO8iXvs3mwwJfX7xi/8soAPhMBBIDQ4kTnU970xtWx6B5ImkEdbfi8t0gI1S/ns7aV9FQq
Pkmux23Jb1tXaNrVfYrxK6YM4FsSPi2qfbKlKg8+O/3YKdyDzwIk9QsgdtWq4dZlZJClvERB3t6w
bWTBJxE4xq+YMoDvH8OnpzEdqSxsHnwMsc4T7e8s+HTkZh8+kkmeJ/kf/89t6Ck8Br4Yv2LKrCV8
oXxJT4WhaXfZyCeD4G176Kk5BJ/O93Rki/ktEfixSQOkbzfpPOd/euslFr48v0KzgvZ7reAL5VZ8
3ooegk+LGtpP09NuaBBiIl9MbpcFoUx9vPq2e3vc/gsyfpuhH4wY+GL8iimzdvCJKN5geKtKXc7e
64knQEpU8xJviYZ2O8WLJnY1LbDx+bz32N7KVe4XH2ybMfDJQxzyV/zK833t4GPh9DZKaP/OK+O9
HdADLNd15OP27GKDgfam2dC+mrdYiXn3qvtgQZWHwqYgsfB5/fL0yfL9+OHb2dlZdk/5r/KDwYA7
nvLDgrz3wDE5F8qUWIFfX7Xs7u4Whm84HAK+Eg90GV27X61Wv3e73cVsNitknU6H4ftElupjUkS+
MhKT0KfblUrlHX1WdbC1tVXI6KPUA/LrDRnnMjigQK4CF6lEh+xRIrtD9XDCjAMKQAEoAAWgABSA
AlAACkABKAAFoAAUgAJQAApAgXQK/ATp2XizmS7nuAAAAABJRU5ErkJgglBLAQItABQABgAIAAAA
IQA0Ev94FAEAAFACAAATAAAAAAAAAAAAAAAAAAAAAABbQ29udGVudF9UeXBlc10ueG1sUEsBAi0A
FAAGAAgAAAAhAK0wP/HBAAAAMgEAAAsAAAAAAAAAAAAAAAAARQEAAF9yZWxzLy5yZWxzUEsBAi0A
FAAGAAgAAAAhALyQ4326AQAABQQAAB8AAAAAAAAAAAAAAAAALwIAAGNsaXBib2FyZC9kcmF3aW5n
cy9kcmF3aW5nMS54bWxQSwECLQAUAAYACAAAACEAU1KJYdIAAACrAQAAKgAAAAAAAAAAAAAAAAAm
BAAAY2xpcGJvYXJkL2RyYXdpbmdzL19yZWxzL2RyYXdpbmcxLnhtbC5yZWxzUEsBAi0AFAAGAAgA
AAAhAP3BWu/OBgAAPRwAABoAAAAAAAAAAAAAAAAAQAUAAGNsaXBib2FyZC90aGVtZS90aGVtZTEu
eG1sUEsBAi0ACgAAAAAAAAAhAEn9w3xgBAAAYAQAABoAAAAAAAAAAAAAAAAARgwAAGNsaXBib2Fy
ZC9tZWRpYS9pbWFnZTEucG5nUEsFBgAAAAAGAAYArwEAAN4QAAAAAA==
" type="#_x0000_t201"><v:fill o:detectmouseclick="t"></v:fill><vath fillok="t" strokeok="t" shadowok="t"></vath><o:lock v:ext="edit" rotation="t"></o:lock><v:textbox style="mso-direction-alt: auto" o:singleclick="f"></v:textbox></v:shape>

<TABLE cellSpacing=0 cellPadding=0><TBODY><TR><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; WIDTH: 40pt; HEIGHT: 15pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl67 height=20 width=53> </TD></TR></TBODY></TABLE></TD><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65> </TD></TR></TBODY></TABLE>

Hi everyone I am stuck with this one.
I want to create a doughnut chart with the quads absence, reviews, Bronze and silver. and I want to colour the quad in depending on the outcome of the values in column G (Variable based on IF formula from column F) either colour Red for "R" etc. is there a macro for this??

Any help would be grateful

Alan

 

[Alpacino]

Anyone, please??

 

[velkugan]

Have you tried recording the same....????

 

[Alpacino]

Sorry I don't understand?

 

[velkugan]

you can record the actions done by manually in Excel.

Record the macro and create a chart using your data. then press Alt+F11 to view the code.

All the best.

Regards
Vels