userform8 fejler på userform7

Hej XLer

Jeg har lavet 8x userform der køre lige efter hinanden .. men når jeg afslutter den sidste (8) ser det ud til den lukker fint ... men i sidste sek. debugger den på makroen der ligger i userform7 :-/

USERFORM 7
----------------------------------------
Private Sub CommandButton1_Click()  ' 7 of 8

ActiveSheet.Range("Y8") = UserForm7.TextBox27.Value
ActiveSheet.Range("Z8") = UserForm7.TextBox28.Value
ActiveSheet.Range("AA8") = UserForm7.TextBox29.Value
ActiveSheet.Range("AB8") = UserForm7.TextBox30.Value

UserForm7.Hide
    Load UserForm8
    UserForm8.Show
UserForm8.TextBox31 = ""
UserForm8.TextBox32 = ""
UserForm8.TextBox33 = ""
'UserForm8.TextBox34 = Date

TextBox31.SetFocus

End Sub
-----------------------------------------

USERFORM 8
-----------------------------------------
Private Sub CommandButton1_Click()  ' 8 of 8  ... www.SRKnudsen.dk

ActiveSheet.Range("AC8") = UserForm8.TextBox31.Value
ActiveSheet.Range("AD8") = UserForm8.TextBox32.Value
ActiveSheet.Range("AE8") = UserForm8.TextBox33.Value
'ActiveSheet.Range("AF8") = CDate(UserForm8.TextBox34.Value)

UserForm8.Hide

Sheets("Database").Select

ActiveWorkbook.Save

End Sub
----------------------------------------

nogle bud på hvad der kan være galt ??

Chewie