Minha primeira vez fazendo o código, alguém pode analisar e validar, por gentileza?
Sub Testando_Laco_For ()
'
' Alterar_nomenclatura_celula
'
for var_cont = 1 to 100
Range ("A1" & var_cont).formulaR1C1 = "Célula" & ActiveCell.Value
Next var_cont