changes a cell's interior color to red when it is double-clicked:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Dim myColor As Integer Target.Interior.ColorIndex = 3 End Sub