' 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
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)