Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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