[AccessD] Close All Forms

I have used the following code successfully in Access 97 to close all forms when a specific function key is pressed.  However, in Access 2002, this code causes the error box to appear (with the 2 options to send an error report to Microsoft or not) and then closes Access.  Does anyone know why?

    Function CloseAllForms()
        Dim i As Integer
        ' Loop through the collection of open forms and close them (except for the main menu)
        If Forms.Count > 0 Then
            For i = Forms.Count - 1 To 0 Step -1
                If Forms(i).Name <> "frmMainMenu" Then
                    DoCmd.Close acForm, Forms(i).Name
                End If
            Next i
        End If
    End Function

Thanks,
Barb Ryan