VBA/Excel/Access/Word/Excel/Worksheet OnEntry
Assign sub routine to ActiveSheet.OnEntry
<source lang="vb">
Sub Auto_Open()
ActiveSheet.OnEntry = "Action"
End Sub Sub Action()
If IsNumeric(ActiveCell) Then ActiveCell.Font.Bold = ActiveCell.Value >= 500 End If
End Sub
</source>