DEAR ALL

I get lastrow = ActiveCell.End(xlDown).Row and

BBB = ActiveCell.Address(ROWABSOLUTE:=False, COLUMNABSOLUTE:=False)

Range(BBB :K" & lastrow) does not work.

What should be the code to select a range from active cell to the last row
and till colum K?

Can any one help me, pls.

BRGDS/CAPTGNVR

BBB contains a String value so you have to concatenate it with other text.
Use this...

Range(BBB & ":K" & lastrow)

Rick



"CAPTGNVR" wrote in message
...
DEAR ALL

I get lastrow = ActiveCell.End(xlDown).Row and

BBB = ActiveCell.Address(ROWABSOLUTE:=False, COLUMNABSOLUTE:=False)

Range(BBB :K" & lastrow) does not work.

What should be the code to select a range from active cell to the last
row
and till colum K?

Can any one help me, pls.

BRGDS/CAPTGNVR

D/RICK

BINGO. Pretty quick response. Tried and working like a charm. Thank u.

brgds/captgnvr

"Rick Rothstein (MVP - VB)" wrote:

BBB contains a String value so you have to concatenate it with other text.
Use this...

Range(BBB & ":K" & lastrow)

Rick



"CAPTGNVR" wrote in message
...
DEAR ALL

I get lastrow = ActiveCell.End(xlDown).Row and

BBB = ActiveCell.Address(ROWABSOLUTE:=False, COLUMNABSOLUTE:=False)

Range(BBB :K" & lastrow) does not work.

What should be the code to select a range from active cell to the last
row
and till colum K?

Can any one help me, pls.

BRGDS/CAPTGNVR