Hi Norie,

Nice try but I got a compile error: syntax error immediately turning this line yellow

Private Sub Worksheet_Change(ByVal Target As Range)

and the next line below is highlighted in blue

If Not Intersect(Target Range("RevModSel")) Is Nothing Then