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???