Type Info:
Restype As String
Dim Group As Group Dim Restype As String Set Group = Application.ActiveGroup If Not(Group Is Nothing) Then Restype = Group.Restype End If