Hi Nigelog
Thx for your feedback.
That does the trick when one cell is selected; when a range selected marco halts at
Content = Selection.Text