Hi,

I'm trying to set a range to be equal to cell D2 through the last cell in
the column with a value (prior code ensures there will be no empty cells
between cell D2 and the last cell in column D with a value). I've tried the
following code which is not working...any idea how to do this?

With Sheets("Member ID Report Master")
Set Q = .Range("D2")
Set salesrange = .Range(Q, Q.End(x1down))
End With

--
Robert