'  Returns the name of the current project' The first time it's called it clears the error code'Function ProjectName() As String    Static result As String    If Len(result) = 0 Then        On Error Resume Next        ' cause a dummy, harmless error        Err.Raise 999        ' retrieve the project name from the Err.Source property        result = Err.Source        On Error GoTo 0    End If    ProjectName = resultEnd Function