I am trying to add a second section to the Group & Tab with the below VBA code. It will work as long as i do not insert the code in Red Bold to add the second section. How do I get a new section added under the same tab?



Code:
Private Sub Workbook_Activate()

hFile = FreeFile
user = Environ("Username")
path1 = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"


'==Header idQ=====================================================================================================
rXML = "<mso:customUI      xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
rXML = rXML + "  <mso:ribbon>" & vbNewLine
rXML = rXML + "    <mso:qat/>" & vbNewLine
rXML = rXML + "    <mso:tabs>" & vbNewLine


'==Group & Tab====================================================================================================
rXML = rXML + "      <mso:tab id='SBUTab' label='PEO C3T' insertBeforeQ='mso:TabFormat'>" & vbNewLine
rXML = rXML + "        <mso:group id='HBGroup' label='SBU' autoScale='true'>" & vbNewLine

'==Button (Import SBU)============================================================================================
rXML = rXML + "          <mso:button id='Import SBU HB' label='Import SBU HB' " & vbNewLine
rXML = rXML + "imageMso='PasteDuplicate'      onAction='Clean_HB_SBU'/>" & vbNewLine


'==Button (Import Ful LDIF)=======================================================================================
rXML = rXML + "          <mso:button id='Import Full HB' label='Import Full HB' " & vbNewLine
rXML = rXML + "imageMso='PasteDuplicate'      onAction='Clean_HB_Full'/>" & vbNewLine


'==Button (HB Unique)=============================================================================================
rXML = rXML + "          <mso:button id='HB Unique' label='HB Unique' " & vbNewLine
rXML = rXML + "imageMso='PasteDuplicate'      onAction='Unique'/>" & vbNewLine


'==Button (Add HB Units to Baseline)==============================================================================
rXML = rXML + "          <mso:button id='Add HB Units' label='Add HB Units' " & vbNewLine
rXML = rXML + "imageMso='TableOfContentsDialog'      onAction='AddHBUnits'/>" & vbNewLine


'==Button (Add/Update Unit Sheets)================================================================================
rXML = rXML + "          <mso:button id='Add/Update Sheets' label='Add/Update Sheets' " & vbNewLine
rXML = rXML + "imageMso='SortUp'      onAction='AddSheet'/>" & vbNewLine


'==Button (Delete extra Sheets)===================================================================================
rXML = rXML + "          <mso:button id='Delete Sheets' label='Delete Sheets' " & vbNewLine
rXML = rXML + "imageMso='Delete'      onAction='DelSheets'/>" & vbNewLine


'==Button (Add Index Sheet)=======================================================================================
rXML = rXML + "          <mso:button id='Add Links' label='Add HyperLinks' " & vbNewLine
rXML = rXML + "imageMso='HyperlinkOpenExcel'      onAction='ListSheetName'/>" & vbNewLine


'==Button (Add Roles to HB)=======================================================================================
rXML = rXML + "          <mso:button id='Add Roles' label='Add Roles' " & vbNewLine
rXML = rXML + "imageMso='CompareAndCombine'      onAction='RoleS'/>" & vbNewLine


'==Button (Find and Number Duplicates)============================================================================
rXML = rXML + "          <mso:button id='Fix Duplicate Roles' label='Fix Duplicates' " & vbNewLine
rXML = rXML + "imageMso='CompareAndCombine'      onAction='Duplicates'/>" & vbNewLine


'==Button (Export Roles to Sheets)================================================================================
rXML = rXML + "          <mso:button id='Export Roles' label='Export Roles' " & vbNewLine
rXML = rXML + "imageMso='CompareAndCombine'      onAction='AddRolesTowkshts'/>" & vbNewLine


'==Button (Everything)============================================================================================
rXML = rXML + "          <mso:button id='Everything' label='Everything' " & vbNewLine
rXML = rXML + "imageMso='PasteDuplicate'      onAction='Everything'/>" & vbNewLine


'=================================================================================================================
'==Group & Tab 2==================================================================================================
'rXML = rXML + "      <mso:tab id='LDIF' label='PEO C3T' insertafterQ='mso:TabFormat'>" & vbNewLine
'rXML = rXML + "        <mso:group id='LDIFGroup' label='LDIF' autoScale='true'>" & vbNewLine


'==Button (Import LDIF)===========================================================================================
rXML = rXML + "          <mso:button id='Import LDIF' label='Import LDIF' " & vbNewLine
rXML = rXML + "imageMso='PasteDuplicate'      onAction='Clean_LDIF'/>" & vbNewLine


'==Footer=========================================================================================================
rXML = rXML + "        </mso:group>" & vbNewLine
rXML = rXML + "      </mso:tab>" & vbNewLine
rXML = rXML + "    </mso:tabs>" & vbNewLine
rXML = rXML + "  </mso:ribbon>" & vbNewLine
rXML = rXML + "</mso:customUI>"
rXML = Replace(rXML, """", "")


Open path1 & fileName For Output Access Write As hFile
Print #hFile, rXML
Close hFile


End Sub