If the value of the active cell is too big, change it
Sub MyMacro() If ActiveCell.Value > 100 Then ActiveCell.Value = 100 End If End Sub