In sheet-tab codemodule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D2")) Is Nothing Then
Range("D2").Font.ColorIndex = 2
Else
Range("D2").Font.ColorIndex = 1
End If
End Sub


"DMK" skrev:


How can i have the data in a cell only be shown when the curser is clicked
on that cell or the curser is placed over the cell?