Thread: Halfway to End
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
[email protected] bplumhoff@gmail.com is offline
external usenet poster
  
Posts: 136
Default Halfway to End
Hello,

For example:
Dim i As Long, j As Long
i = Range("A1").Column
j = Cells(65536, i).End(xlUp).Row
Range(Cells(j / 2 + 1, i), Cells(j, i)).Select

HTH,
Bernd

Reply With QuoteReply With Quote