Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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