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