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
Comments
Post a Comment
jeetexceltips@gmail.com