Dynamically select range

[Fatz]

Hi-

I have a block of data, say A110, and I have code that dynamically
selects what rows in column D I want to select. So one run may grab
D16, and the next may grab D18 depending on the
criteria....etc....

The problem I have is trying to select the entire block of data. So
if D16 is selected, how do I then tell it to grab A16? Currently
I use this code: Range(Selection,
Selection.End(xlToLeft)).Select....which is ok....until I get a break
in the range. So if column B is BLANK, the macro will only grab
columns C and D.

How do I tell the macro to grab an entire block of data, starting in
column A...and ending in the last row selected in column D??

Thanks,
Chris

 

[Jim Thomlinson]

with sheets(Sheet1)
.range(.range("D1"), .cells(rows.count, "A").end(xlup)).select
end with