Sub VBCompSavedBug() Dim VBComp As Object \'VBComponent With Application.VBE.ActiveVBProject Set VBComp = .VB
