Valores en Excel

Saludos a todos;

Agradezco primeramente la molestia que se toman para leer este mensaje;
ahora a la consulta :


Tengo un Libro en el que se guardan porcentajes (el formato de las celdas
es porcentaje), en la mayoria de ellas sin decimales, aunque algunas si lo
tienen.

El caso es que necesito realizar una macro para generar mas de 30 reportes
con esta información en una plantilla que tiene Gráficos.

Declaro arreglos declarados de tipo Single, para almacenar la Toda la
información antes de abrir la plantilla, y pegar los datos, sin embargo,
me pega valores como 0.38777656841 a pesar de que en la celda original
existe un 39, es así como guardo los datos :

If ActiveWorkbook.ActiveSheet.Cells(1010, Columna).Value <> "" Then
P8_1(1, 1) = Format(ActiveWorkbook.ActiveSheet.Cells(1010, Columna).Value,
"##.00")

Primero me aseguro que la celda no tenga una cadena vacia para poder
pasarle la información,
la variable P8_1(1,1) es de tipo single y esta declarada en la sección
general. y despues le hago un format, para que guarde la parte entera y 2
decimales.

La solución que hasta el momento he implementado es, en las celdas donde
se pega la información tienen un formato de porcentaje con 0 decimales,
sin embargo, si me coloco en una de ellas veo que el valor que guardo es
038777656841 ... y en el grafico si me presenta el 39 % aunque quisiera
que apareciera sin el signo " % ", pero si no es posible, espero sus
sugerencias.

Mil gracias, por su atención nuevamente.


César Galicia
Soporte Técnico
TNS-Gallup