Worksheet. Event

Private Sub Worksheet_Activate()
MsgBox "This is Worksheet_Activate"
End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = ActiveCell.Next.Next.Activate
Target.Interior.Color = WorksheetFunction.RandBetween(20, 22)
End Sub