With Sheets(1)
.Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row,
"D")).Select
End With

--

Regards,
Nigel




"K" wrote in message
...
Hi, can anybody pleae tell me that how can i select range in macro
from A1 to column D cell which come in same row of last value cell in
column A