Visual Basic - Nombrar celdas como variables

hola a todos , espero puedan ayudarme.

Estoy tratando de hacer un programa en el visual basic del excel2kpro, sucede que tengo que seleccionar 3 celdas y renombrarlas con nombres de variables, lo que hago es esto en un for
col=7
for c=0 to 9
rg="h"+trim(str(c+col))
rg2="e"+trim(str(c+col))
rg3="g"+trim(str(c+col))
range(rg).select
activecell.name="a"
range(rg2).select
activecell.name="b"
range(rg3).select
activecell.name="c"
if condicion then
range(a).select
activecell.font.bold=true
else
range(b).select
activecell.font.bold=true
endif
next

y siempre me da error en el tercer renombramiento.
cual es la forma correcta de hacerlo, o que hago mal?