Check Mark?

Hi

Paste the following code into the sheet module (right click on the tab and select 'view code')

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim row As Long
    Dim Col As Long
    
    Cells.Interior.ColorIndex = xlNone
    
        row = Target.row
        Col = Target.Column

        Cells(row, Col).Interior.ColorIndex = 1

End Sub

If you wish to change the color simply change the value 1 for the interior color index to one more appropriate.

Regards


Jeff