Comprar Coleção de 15.000 Macros, Funções e Fórmulas                  Dicas  

Como redefinir o nome de meu range?


Questão 52
Atribui ao range A1:A10 o nome "Despesas". Ocorre que preciso incluir mais dados. Ocuparei então a célula a11. Em conseqüência, o nome "Despesas" passa a não ter mais sentido. Como reaproveitar o antigo nome ("Despesas") para indicar o novo range A1:A11

Solução 52


Sub AdicionandoNovaCelulaAoRange( )
''''Despesas é o nome inicial do Range
Range("A1:A10").Name = "Despesas"
''''Acrescentamos dados na célula A11 e renomeamos o novo range com o nome antigo.
Union(Range("Despesas"),Range("A11")).Name = "Despesas"
End Sub