how do I change the below to not be an event, but run from a macro1?
thanks
Jan
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
'change the input cell range as desired
Set rInt = Intersect(Target, Range("plus20pct"))
If Not rInt Is...