Assign sub routine to ActiveSheet.OnEntry : Worksheet OnEntry « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Worksheet OnEntry

Assign sub routine to ActiveSheet.OnEntry

 
Sub Auto_Open()
    ActiveSheet.OnEntry = "Action"
End Sub
Sub Action()
    If IsNumeric(ActiveCell) Then
        ActiveCell.Font.Bold = ActiveCell.Value >= 500
    End If
End Sub

 

Related examples in the same category