Bravo, Claus, works fine.

Am I misunderstanding the line below about Target.Count?
I can still select more than one cell in the target range and the activecell of that selection will take an input. I guess its really is no big deal, just thought that would eliminate multiple selections.

Or Target.Count 1 Then Exit Sub

Thanks.
Howard