Hi AP,

The suggested code can be simplied.

Change:

Dim currCell As Range, currRng As Range

to

Dim currCell As Range

and delete:

Set currRng = Selection

---
Regards,
Norman



"AP" wrote in message
...
Tq norman