Public Function SelectSectionByName(groupControlH, sectionName)
    groupCount = groupControlH.Object.Groups.Count
    For i = 0 to groupCount - 1
    Set currentGroup = groupControlH.Object.Groups.Item(i)
    groupName = currentGroup.Caption
    If groupName = sectionName Then
        groupControlH.Object.ActiveGroupName = currentGroup.Name
    End If
Next End Function