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

Popular posts from this blog

Comments