VBA/Excel/Access/Word/Excel/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