Bom dia Marcios

Copie e cole o código abaixo no módulo da planilha, destaca a linha selecionada, tanto por cursor quanto por setas.
Créditos: JValq

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.Color = xlNone
    Rows(Target.Row).Interior.Color = vbYellow
End Sub

[]s

bom dia Patropi,

inseri no modulo mas não funcionou.....

por acaso vc testou??

Marcio

Sim testei, pois eu tenho num planilha e funciona perfeitament.
Acho que você não observou o que eu digitei --> Módulo da Planilha

[]s

Olá!
Veja uma alternativa na video aula que gravei a um tempo atrás.
Acesse:
https://excelmaniacos.com/2015/06/20/destacar-toda-linha-de-uma-tabela-ao-selecionar-uma-celula/
Abraços!

Muito obrigado Patropi e Rafael...

Att... Marcios®

As formas que vcs me ensinaram já são mais que satisfatórias, porém, será que consigo manter as células coloridas ....
Percebi que mesmo as células tendo um fundo de outra cor, uma vez que clico sobre ela a cor desaparece e não volta mais.....

Att Marcios®

Boa noite Marcios

No site do link abaixo tem um planilha, com utilização de Formatação Condicional e uma pequena linha de código VBA, que faz o que você deseja.

http://exceldicasitau.blogspot.com.br/2 ... a-com.html

Se foi útil clique na mãozinha.

[]s

Boa tarde,

Deixo a minha contribuição, apenas com o código VBA (sem formatação condicional):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Intervalo As Range

    'Define o intervalo onde a linha selecionada será destacada
    Set Intervalo = [B1:E20]

    'Deixa o interior das células do intervalo sem cores
    Intervalo.Interior.Color = xlNone

    'Deixa o intervalo com a cor de fonte automática (opcional)
    Intervalo.Font.ColorIndex = xlAutomatic

    'Tira o negrito da fonte (opcional)
    Intervalo.Font.Bold = False

    'Verifica se a célula selecionada está no intervalo
    If Not Application.Intersect(Intervalo, Target) Is Nothing Then

        'Altera a cor do interior das células da linha do intervalo
        Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Interior.Color = vbYellow

        'Caso seja necessário podemos alterar a cor da fonte (opcional)
        Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Font.Color = vbRed

        'Colocar a fonte em negrito (opcional)
        Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Font.Bold = True
    End If
End Sub

Caso não queira que a cor em destaque seja apagada:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Intervalo As Range
    
    'Define o intervalo onde a linha selecionada será destacada
    Set Intervalo = [B1:E20]
    
    'Verifica se a célula selecionada está no intervalo
    If Not Application.Intersect(Intervalo, Target) Is Nothing Then
    
        'Altera a cor das células da linha do intervalo
        Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Interior.Color = vbYellow
        
        'Caso seja necessário podemos alterar a cor da fonte (opcional)
        Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Font.Color = vbRed
        
        'Colocar a fonte em negrito (opcional)
        Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Font.Bold = True
    End If
End Sub

Abraço

Bom dia a todos, ainda sobre esse assunto minha planilha tem muitas fórmulas e eu queria bloquear somente as células que estão com fórmulas, porém não consigo, fica aparecendo uma mensagem de depuração...
Desde já meu muito obrigado.....
Marcios®