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