Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 46
End Sub

Obs: Se a planilha estiver com algum cor...esse codigo ira remover!!!

Leonardo, boa noite

Você é o cara!!! Muito bom esse código. Mas tenho duas dúvidas: existe uma lista com o número das cores, pois quero usar o amarelo? É possível deixar a linha 01 fora do comando? Muitíssimo obrigado.

Ah sim, aquele post do VBA não teve resposta. Será que é muito complexo fazer o código? Eu devo retirar alguma exigência?

[]s

Axo q a melhor maneira d vc pegar o Nº das cores é gravando uma Macro e pintando as celulas....
Ex:
Se vc escolher a cor Azul vai aparecer assim...
ColorIndex = 5
Ja sabemos q o Nº 5 é o Azul....
Se vc escolher Vermelho irá aparecer 3

Para não colorir a linha 1 coloque um If (Target.Row > 1) Then

O cod vai ficar assim...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If (Target.Row > 1) Then
Target.Interior.ColorIndex = 46
End If
End Sub

Perfeito, Leonardo

Usei o número 44 e se ajustou perfeitamente a minha necessidade.

Obrigado de novo.

[]s

Boa tarde a todos,

Alguém saberia como corrigir esse código, pois quando vou copiar células o código desabilita o comando de colar.

Desde já agradeço.

[]s