Visual Basic para Aplicaciones - colorear excel vb

Alguien podria decirme como hago una macro para colorear una celda solo seleccionandola??

Gracias

no queda claro 100% lo que querés hacer
podría ser algo así

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 3 '//Rojo
End Sub

Saludos desde Baires, JuanC