dúvidas para validar checkbox

[Roberth Santos]

Boa Noite, 

Estou com uma dúvida em relação ao uso de checkbox. Sou novo em relação a programação VBA e gostaria de saber se é possível utilizar vários checkbox e enviar para uma célula específica dentro da planilha.

No exemplo que tenho os checkbox são índices e corresponde do índice 1 ao índice 45. Gostaria de saber se é possível jogar as marcações dos índices na célula correspondente aos índices separando-os por vírgulas.

Ex: 1,3,5,7,9,11,29,30,31,40,42,45

 

Desde já agradeço

[Roberth Santos]

Só está voltando a última marcação.

[Alyson Ronnan Martins]

Agora em caso estou olhando melhor o código:

Dim varTexto as String 'Variavel para criar o texto
for x = 1 to 45 step 1
	if me.("ÍNDICE" & x).Value then
    	'Olha o numero para armazena variavel
    	varTexto = x
        'Colocando "virgula" para identificar o final
        if x <> 45 then
        	varTexto = varTexto & ", "
        end if
	end if
next x
xcell.Offset(i, 3) = varTexto

 

[Roberth Santos]

Continua voltando somente a última marcação