Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Dim myColor As Integer Target.Interior.ColorIndex = 3 End Sub