creation of name range without selection of cells
I used the following
row1 = Sheet3.Range("B5").End(xlDown).Row
ActiveWorkbook.Names.Add Name:="task1summary", RefersToR1C1:= _
"=Summary!R5C2:R" & row1 & "C2"
ListBox2.RowSource = "task1Summary"
I wanted all within program
--
Jim at Eagle
|