I though it may help if my code was on here to.

Here is my code it is commented out well both for me and for situations like this where i need help.

[vba]
Option Explicit

Dim inp
Dim LastUsedRow, NextRow, AddArea, AreaName, RowCnt, PageCount
Dim newPage

'This is the button the user clicks to add a new area (page)
Private Sub cmd_Add_Click()
'Get area name from user
ReDo:
inp = InputBox("Enter an area name:" & vbCrLf & "Note: Area names must be less than 31 characters and contain only letters, numbers and spaces")
If inp = "" Then Exit Sub
If Len(inp) > 31 Then
MsgBox ("Too Long!")
GoTo ReDo
Else
'Get las used row from sched
LastUsedRow = ThisWorkbook.Worksheets("Sched").Range("B" & Rows.Count).End(xlUp).Row

'Proceed to next row
NextRow = LastUsedRow + 1

'Clean the input string (function stored in code module to remove everything but a-z,A-Z,0-9 and spaces)
inp = strClean(inp)

'Add the area name to the sched
ThisWorkbook.Worksheets("Sched").Range("B" & NextRow).Value = inp

'Make a new page and add the new area to it.
Call AddNewArea((NextRow), (inp), True)

End If

End Sub

'This is my function to add the new page to the multipage and populate it
Sub AddNewArea(PageNum As Long, PageCaption As String, IsNew As Boolean)
Dim PageName
Dim newlblID As Control, newlblQTY As Control, newLstBx As Control
Dim c, LastCol, x1Val, x2Val, celVal, celHead

'Get pages from multipage and set the count into pagecount
PageCount = frmSchedule.MultiPage1.Pages.Count

'Set the new page name to "PageX" where x is the current row on worksheet sched
PageName = "Page" & PageNum

'Make a new page in the multipage control for the new area
newPage = ""
'Trap any errors
On Error GoTo Err1:
Set newPage = frmSchedule.MultiPage1.Pages.Add((PageName), (PageCaption))

'Scroll to new page ready for user
frmSchedule.MultiPage1.Value = PageCount

'Create the labels for the headers--- ITEM DESCRIPTION --- QUANTITY
Set newlblID = newPage.Controls.Add("Forms.Label.1", "lblItemID" & PageNum, True)
With newlblID
.Caption = "Item Description"
.Height = 10
.Left = 18
.Top = 12
End With

Set newlblQTY = newPage.Controls.Add("Forms.Label.1", "lblQTY" & PageNum, True)
With newlblQTY
.Caption = "Quantity"
.Height = 10
.Left = 510
.Top = 12
End With

'Create a 2 column list box 618 wide with coloumn 1 at 500 and coloumn 2 at 118
Set newLstBx = newPage.Controls.Add("Forms.ListBox.1", "ListItems" & PageNum, True)
With newLstBx
.ColumnCount = 2
.ColumnWidths = "500;100"
.Height = 480
.Left = 12
.Top = 30
.Width = 600
End With

'If adding areas from a list then do the following. (isnew was sent FALSE)
If IsNew <> True Then
'For Each Item in the currentrow of the schedule, get the header column (Row 1 of each column) of each cell and the cell value.
'celHead is the header cell or Item Description
'celVal is the value or Quantity of the items

'Determnine the last coloumn of items
LastCol = ThisWorkbook.Worksheets("Sched").UsedRange.Address(ReferenceStyle:=xlA1)

'Rerieve the column letter from the range address
LastCol = Mid(LastCol, 7, 2)

'Set x1 and x2 limits x1 begin x2 end of headers
'Start at column c as this is the first column of items
x1Val = "C" & PageNum

'Finish as the last column.
x2Val = LastCol & PageNum

'Start to loop through the cells
For Each c In ThisWorkbook.Worksheets("Sched").Range(x1Val, x2Val).Cells
If c.Value <> "" Then

'Get the qty value and store in to celVal
celVal = c.Value

'Get the item description (header) and store in celHead
celHead = ThisWorkbook.Worksheets("Sched").Cells(1, c.Column)

'Write the data in celVal and CelHead to the Listbox
newLstBx.AddItem celHead
newLstBx.Column(1, newLstBx.ListCount - 1) = celVal
End If
Next

newLstBx.Width = 600
newLstBx.Height = 480

End If

'If all went well exit the sub
Exit Sub

'on Error do the following.
Err1:
MsgBox (Err.Number & ": " & Err.Description & vbCrLf & "SOURCE: " & Err.Source & vbCrLf & "LastDLL:" & Err.LastDllError)
newPage = Empty
End Sub
[/vba]
As you can see i have tried my best to go through an qualify every statement as best as possible to try and reduce any errors.

Its annoying as everything worked as it should just last week. now i can't even get it to add a multipage even using the simple code i posted in my first post.

In a new workbook though i can get a multipage to add a new page using the same code but not on this project where i need it to.