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

Comments

Popular posts from this blog

50 Excel VBA Oral Interview Questions