Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Changes a cells 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