Hello,
Here is my code
Option Explicit
Private Sub Workbook_Activate()
Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String
hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\
Office\"
fileName = "Excel.officeUI"
ribbonXML = "<mso:customUI xmlns:mso='
http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + " <mso:qat/>" & vbNewLine
ribbonXML = ribbonXML + " <mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + " <mso:tab id='reportTab' label='WBG' insertBeforeQ='mso:TabForm
at'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:group id='reportGroup' label='Total Calculator' autoScale='true'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:button id='runReport' " & vbNewLine
ribbonXML = ribbonXML + " imageMso='Calculator' onAction='CallOpenCalculat
or'/>" & 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 path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile
End Sub
Option Explicit
Sub CallOpenCalculator(control
As IRibbonControl)
Call OpenCalc
End Sub
Sub OpenCalc()
TotCalc.Show
End Sub
Problem - When I click the custom button on the ribbon, the TotCalc form is not displayed. Instead, I receive a message stating "....The macro may not be available in this workbook or all macros may be disabled."
Please help.
M. Wilson
Sub CallOpenCalculator(control
by this
Public Sub CallOpenCalculator(control
gowflow