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