You don't say a lot about what you are doing, but this might be a way to do it
Dim lRow as long
dim myRange as range
Set myRange = activesheet.cells(1,1) 'First cell of range to select
lRow = activesheet.cells(activesheet.rows.count,myrange.c olumn).end(xlup).row
if lRow myRange.row then
Set myRange = myRange.resize(lrow-myrange.row + 1,1)
end if
myRange.select
--
HTH,
Barb Reinhardt
"x taol" wrote:
that case,,, the line have 50,000 data..
i want to select the all data...
but, lbx.selected(i)=true....... is no good... this is slow... for
loop..
at once,one stop,,,, setting
*** Sent via Developersdex http://www.developersdex.com ***