I have a large multiple tab workbook where each tab may contain 1 or more
pages when printed out.
Each tab is essentially a new heading
I want to create a table of contents which automatically detects how many
pages are in each tab and can therefore adjust the table of contents
accordingly.
Don't mind using a macro as I see this as the only way to go.

I was thinking along the lines of;

Sub Create_Table_of_Contents

FOR Contents_Line = 1 to Last_Tab_in_Workbook
Contents_Line_1 = Tab_1_Name
Contents_Line_1_Page_Num = 1
Contents_Line_2 = Tab_2_Name
Contents_Line_2 = Count_of_Pages_in_Tab_1 + 1
etc.
etc.
Next

Most of this I can handle, but how can you tell how many pages are in a tab
in print preview format?

Rich