The following example uses the ActiveVBProject property to return the name of the active project.
Debug.Print Application.VBE.ActiveVBProject.Name