Hi Robert,

Am Thu, 16 May 2013 01:47:13 -0700 schrieb Robert Crandal:

Range("B" & row_n & ":Q" & row_n).Select

try:
Intersect(Columns("B:Q"), Rows(ActiveCell.Row)).Select


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2