Thanks Kalak, After also deleting the dot before range here ( .Range(Mid(s, 2)).ClearContents ) your code from post #11 works very well. It is quick, precise and from the active cell. This has solved my issue.
Best Regards and thanks for your efforts,
Jooles![]()
Bookmarks