Hi all,

I have this code:

Dim cl As Range
For Each cl In [B1, D1,H1]
It works fine, but I need something that points to the last cell, something like:

Dim cl As Range
For Each cl In [replace(Range("B65536").End(xlUp).Address,"$",""), replace(Range("D65536").End(xlUp).Address,"$",""), replace(Range("H65536").End(xlUp).Address,"$","")]
or even better

Dim cl As Range, n As Long
n = Range("A65536").End(xlUp).Row
For Each cl In ["B" & n, "D" & n, "H" & n]

Of course the two last ones didnt work.

Any help???