Oi! Thanks, Bob. Got off on the wrong track and couldn't see it. Not
sure about the rangeCurrentCell = ActiveCell. I will look further into it.

Thomas

Bob Phillips wrote:

Thomas,

You are mixing types up.

You declare rangeCurrentCell as a range, but then try to use it as a
variable and assign it a string value. This works

Dim rangeCurrentCell As String
'
rangeCurrentCell = ActiveCell.Address

I am also surprised to hear you say that

Set rangeCurrentCell = ActiveCell

it certainly works for me as long as rangeCurrentCell is declared as range
or variant.