For readability, and qualifying everything, you can use

Set rng = .Range(.Cells(1, "H"), _
..Cells(.Rows.Count, "H").End(xlUp))

if your original code had been given to you in that form, you would have
worked it out yourself <g


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"colofnature"
wrote in message
...

Change it to

Set rng = .Range(.Cells(1, 8), _
Cells(Rows.Count, 8).End(xlUp))


Col


--
colofnature
------------------------------------------------------------------------
colofnature's Profile:
http://www.excelforum.com/member.php...o&userid=34356
View this thread: http://www.excelforum.com/showthread...hreadid=560733