Type Info:
ActiveGroup As Group
Dim App As Application Dim Grp As Group Set App = Application Set Grp = App.ActiveGroup