tadeuz, entendi, você quer ... só um detalhe, já utilizei isso numa Planilha - mas desisti na hora, isso bloqueia toda e qualquer formatação que você fizer numa célula desta Planilha!! ... Ou seja, se você usar esse Código, não conseguirá formatar mais nada!!!
Editando ... o código que eu usava era este ... abra um arquivo novo dê Alt+F11 e cola ele na planilha!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.Color = RGB(255, 255, 255)
Rows(Target.Row).Interior.Color = RGB(200, 250, 250)
Columns(Target.Column).Interior.Color = RGB(200, 250, 250)
Cells.Borders.ColorIndex = 15
End Sub
Postado : 10/12/2020 12:13 pm