>>711
SelectionChange をぐーぐって

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.Color = vbBlack
End Sub

ってやってみー(@´,,・ω・,,`@)