André Zani

Pessoas dos meus brasis,
 
Meu bróder passou por aqui há pouco. Mostrei pra ele meu problema e o fidamãe resolveu o negócio em 14 min e 12 seg (eu sabia que tinha um jeito mais fácil de fazer o que eu precisava).
 
Pois bem, ele escreveu a macro abaixo. Eu a copiei e inseri numa macro criada para essa planilha. Atribuí o atalho "Ctrl+Shift+H" e, após um pequeno ajuste* na planilha, foi só selecionar a primeira célula da coluna E onde contem o primeiro nome específico e pressionar e segurar simultaneamente Ctrl+Shift+H e deixar a macro percorrer toda a planilha até o fim (dá um erro que o bróder explicou que é em decorrência de a última célula estar vazia e, por isso, a macro não pode atribuir um valor vazio para a Caixa de Nome da célula). Enfim, embora eu tenha que segurar as teclas durante 8,17 segundos para a macro atribuir todos os 300 e tantos nomes às células, ficou bem melhor que o modo neandertal que eu estava utilizando. Pra mim, tudo certo! :-)
 
* Ajuste necessário nas células que não contêm os nomes que eu criei, então usei a fórmula 'LIN' para 'copiar' os nomes das células destinos que não receberão nome específico, por exemplo, a célula E11 recebeu a fórmula '="D"&LIN(D11)", resultando no valor "D11". Usando o recurso de filtro, foi fácil atribuir essa fórmula de uma só vez a todas as células da coluna E que não têm nome específico.
 
Eis a macro:
 
========================================
Sub Atribuir_nome_celula() ' ' Atribuir_nome_celula Macro ' ' Atalho do teclado: Ctrl+Shift+H ' Dim valor As String Selection.Copy valor = ActiveCell.Value ActiveCell.Offset(0, -1).Select ActiveCell.Name = valor ActiveCell.Offset(1, 0).Select ActiveCell.Offset(0, 1).Select Selection.Copy ' Movimentar o cursor uma célula para baixo: ' ActiveCell .Offset(1,0).Select ' Movimentar acima: ' ActiveCell .Offset(-1,0).Select ' Movimentar para direita: ' ActiveCell.Offset(0,1).Select ' Movimentar para esquerda: ' ActiveCell.Offset(0,-1).SelectRange("B2").Select End Sub   ==============================================