Private Sub Listbox1_click()
Dim sh as Worksheet, rng as Range
Dim cell as Range
if listbox1.listIndex < -1 then
listbox2.clear
set sh = Worksheets(Listbox1.Value)
set rng = sh.Range(sh.Cells(1,1),sh.Cells(1,"IV").end(xltoLe ft))
for each cell in rng
listbox2.AddItem cell.Value
next
end if
End sub

--
Regards,
Tom Ogilvy


"Steve" wrote:

Hi

I seem to have fixed one problem, only to find another.

I have a workbook with several worksheets.

On a main tab I have a button that loads a form and shows a list (in a
listbox) of all the tabs in the workbook.

I then want to select the tab from the list and then use that value as an
argument to then bring up another list of all the column headers in the
selected tab.

I was kind of hoping it was as simple as "load List(TabName)" but wasn't to
be.

Suggestions much appreciated.
--
Steve R