Thank you for the reply. The code  works well! I wont pretend I
understand half of the code but it works auto magically!

I would like to improve  the search  though and limit the range  to a
particular range name called "InvoiceNo" which represents cells
B4:B43 (for example).

Ive tried to change the line

Set rlFromRange = Range("a1")

to any of the following but only get a runtime error

Set rlFromRange = Range("InvoiceNo")
Set rlFromRange = Range(InvoiceNo)
Set rlFromRange = Range(B4:B43)

Any clue on how I can limit the search range to just a particular
range name rather than the whole worksheet?