I’ve used the below code on “Thisworkbook” for customize myribbon, however i can’t be able to get the values of the editBox.

can anyone please sort out me in favour.

I can’t generate callbacks with custom UI editor as this is not allowed/installed to use. so i used as below

Private Sub Workbook_Activate()

Dim hFile As Long

Dim path5 As String, fileName10 As String, ribbonXML As String, user As String

hFile = FreeFile

user = Environ(“Username”)

path5 = “C:Users” & user & “AppDataLocalMicrosoftOffice”

fileName10 = “Excel.officeUI”

ribbonXML = “<mso:customUI xmlns:mso=’http://schemas.microsoft.com/office/2009/07/customui’ onLoad = ‘onLoad’>” & vbNewLine

ribbonXML = ribbonXML + ” <mso:ribbon startFromScratch = ‘true’>” & vbNewLine

ribbonXML = ribbonXML + ” <mso:qat/>” & vbNewLine

ribbonXML = ribbonXML + ” <mso:tabs>” & vbNewLine

ribbonXML = ribbonXML + ” <mso:tab id=’welcome’ label=’AMP Cmd Buttons’ insertBeforeQ=’mso:TabFormat’>” & vbNewLine

ribbonXML = ribbonXML + ” <mso:group id=’AMPgroup’ label=’ClearData’ autoScale=’true’>” & vbNewLine

ribbonXML = ribbonXML + ” <mso:button id=’Delete1′ label=’ClearAll’ ” & vbNewLine

ribbonXML = ribbonXML + “imageMso=’InkEraseMode’ onAction=’Clear_data’/>” & vbNewLine

ribbonXML = ribbonXML + ” </mso:group>” & vbNewLine

ribbonXML = ribbonXML + ” <mso:editBox id=’editBox’ getText=’editBox1′ ” & vbNewLine

ribbonXML = ribbonXML + ” label=’Location’ onChange=’editBox2’/> ” & vbNewLine

ribbonXML = ribbonXML + ” </mso:group>” & vbNewLine

ribbonXML = ribbonXML + ” </mso:tab>” & vbNewLine

ribbonXML = ribbonXML + ” </mso:tabs>” & vbNewLine

ribbonXML = ribbonXML + ” </mso:ribbon>” & vbNewLine

ribbonXML = ribbonXML + “</mso:customUI>”

ribbonXML = Replace(ribbonXML, “”””, “”)

Open path5 & fileName10 For Output Access Write As hFile

Print #hFile, ribbonXML

Close hFile

End Sub

I tried on new module with below code to get the value as “onChange” parameter but not working

Sub LoadCustomRibbon(control As IRibbonControl, editBox2 As String)

MsgBox editBox2

End Sub