this code work good for me
a changed some line ,

here is the version I´ve changed ..

coz i want label count crescent ...



ELETRICA2 V4.xls