Excel VisualBasic Script

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