Sub TrocarNomeAba()
For Each Sheet In Worksheets
RotuloRetorno:
Sheet.Select
NovoNome = InputBox("Qual o novo nome para esta Aba ?")
If NovoNome = "" Then
Exit Sub
End If
On Error GoTo RotuloRetorno:
ActiveSheet.Name = NovoNome
Next
End Sub

38. Destacar linha e coluna da célula selecionada

Esta macro é extremamente útil para usuários que precisam analisar grande
quantidade de informações com frequência, a partir de uma célula
selecionada, as colunas e linhas são destacadas, para facilitar a leitura de
dados, conforme imagem abaixo:

Obs1: É necessário incluir a macro dentro do objeto da planilha desejada, no
exemplo abaixo a planilha que apresentará os destaques de linha e coluna
será a “Plan1”.