Guru do Excel e Power BI

Bom dia!

Feliz ano novo.

Dúvida posta em outro fórum.

Solicito a sua ajuda para o problema, de acordo com a planilha anexo.

Grato - Geneci.

Subistitua seu codigo por este

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

With Cells
.Interior.ColorIndex = xlColorIndexNone
.Font.Bold = False
.RowHeight = 15
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
End With

With Target.Cells
.EntireRow.Interior.ColorIndex = 33
.Font.Bold = True
.RowHeight = 22
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With

End Sub