When Executing The Macro, I Get Double The Page References

I am using Office 2007 and perhaps that is my issue. When executing the macro, I get double the page references than there actually are. My workbook has approx. 330 pages and when the macro finishes I have over 700. Certain tabs have a different page setup, and I assume that the macor only takes the regular pagination into consideration. I have landscape as well as portrait setup.

I also receive the errors upon completion in the bolded areas:


Sub CreateTableOfContents()
' Copyright 1999 MrExcel.com
' Determine if there is already a Table of Contents
TOCFound = False
For Each s In Worksheets
If s.Name = "Table of Contents" Then
TOCFound = True
Exit For
End If