I have got this to work with TAB names follwing the help in Excel, however, I
want to read in row headers into a listbox and I can't get it to work.

While worksheets(1).cells(1,col).value < ""
listbox1.additem worksheets(1).cells(1,col).value
col=col+1
Wend

Any ideas

Many thanks
--
Steve R