Set frng = Union(Range("B5:B" & Range("B65536").End(xlUp).Row), _
Range("D5:D" & Range("D65536").End(xlUp).Row))


--

HTH

RP

"Steph" wrote in message
...
How can I make the below formula range consist of columns B and D, still
using the bottow row finder of .End(xlup) ? Thanks!

Set frng = Range("B5:B" & Range("D65536").End(xlUp).Row)