myrange=range("D4:D"&cells(65536,"D").end(xlup).ro w)
or
myrange=range("D4:D"&cells(4,"D").end(xldown).row)

--
Don Guillett
SalesAid Software
Granite Shoals, TX

"EAB" wrote in message
...
I noticed someone was trying to select a range in the
newsgroup postings and I thought that I could use this as
well. When using the code below, the error occurs:

MyRange = Range(Selection, Selection.End
(xlToRight)).Select & Range(Selection, Selection.End
(xlDown)).Select

For Each R In Worksheets("Sheet1").Range(MyRange).Cells

I want to select a range based off of D4 but I don't want
o have to manually input the last cell. Any ideas?