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>