Não entendi.

Não sei se entendi, mas troque por esta e veja se é isot, as linhas desabilitadas corresponde somente a Celula selecionada.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    Cells.Borders.Color = xlNone
    Cells.Borders.LineStyle = xlNone
    
    'Formata Linha e Coluna
    With Target
    '    ' Highlight the entire row and column that contain the active cell
        .EntireRow.Borders.Color = vbRed
        .EntireColumn.Borders.Color = vbRed
    End With
    
    'Foramata só a Celula Selecionada
    'With Target.Borders
    '    .LineStyle = xlContinuous
    '    .Color = vbRed
    '    .Weight = xlThick
    'End With
    
    Application.ScreenUpdating = True
    
End Sub

Agora que vi que já obteve resposta em outro Forum:
Re: Sera que tem jeito?
http://www.tomasvasquez.com.br/forum/vi ... =20&t=4472

quando fizer solicitações em outros foruns e obtiver a solução, favor retornar a este forum e postar a resposta e definir como resolvido.

[]s