With Range("MyRange").Resize(1,1)
.Parent.Range(.Item(1), _
.parent.Cells(.Row,256).End(xlToLeft)).Name = "MyRange"
End With

--
Regards,
Tom Ogilvy


Ray Batig wrote in message
hlink.net...
Tom,
You recently suggested how to find the next blank cell in a row in the
following note:

if you have columns A5:C5 with values, Cells D5 blank, Cells E5:H5 with
values
then D5 would be an embedded blank cell and doing
Cells(5,1).end(xltoright)(1,2) would find D5.

Cells(5,256).End(xltoLeft)(1,2) would find I5.

--
Regards,
Tom Ogilvy

I have the following code to resize a range after I added some data to it.
It works fine, except that some of my new data was blanks. Consequently my
range was too short. I would lke to implement the technique you
suggested,
however, I can't seem to get it to work. Would you fix it for me?

With Range("MyRange").Resize(1,1)
.Parent.Range(.Item(1), .End(xlToRight)).Name = "MyRange"
End With

Thanks in advance for your help!

Ray