Este fórum está sendo desativado

[needfsw]

gostaria de saber um código vba para colocar uma pasta de trabalho fique com alinha ativa em destaque.

((Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 36
End Sub))

já utilizo o código acima mas em cada planilha. tem como ser em toda pasta de trabalho.

Desde já agradeço.

[Kledison]

Boa noite,

tente esse código, coloque em ESTA_PASTA_DE_TRABALHO:

Código: Selecionar todos

Dim Linha As Long 'Variavel global
'Função que colore a linha da celula atualmente selecionada
Private Sub Workbook_Activate()
    On Error Resume Next
    Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 36
End Sub

'Chamada das respectiva função toda vez que uma nova célula é selecionada
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
   Call Workbook_Activate
End Sub

Att