Use With statement with CurrentProject
Sub CurrentProjectObject() With CurrentProject Debug.Print .Name Debug.Print .Path End With End Sub