Excel VisualBasic Script

Sub MyMacro()
         If ActiveCell.Value > 100 Then
             ActiveCell.Value = 100
         End If
     End Sub