Workbook_SheetBeforeDoubleClick

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveCell.Interior.Color = WorksheetFunction.RandBetween(-900, 900)
End Sub