ActiveX Buttons in Ribbon

You can't put activex buttons in the ribbon, if that's what you are saying.

Ribbon buttons use callbacks, but for existing macros you can just add them to the ribbon and everything is done for you, so I'm not really sure where you are stuck?

There is a section on the ribbon for adding activex controls to a worksheet; that is not the same as ribbon buttons being activex.

If you want to call the code from a ribbon button, it does belong in a normal module, not a worksheet module. I'm not sure why you think that's wrong?

That is the menu button to create an activex button. It is not itself an activex button, any more than the button to create a combobox is a combobox.

And yes, moving the code to a normal module is what you need to do. I was asking why you think that is wrong?

My issue is that I am unable to use the code in a module:

Code as follows:

Private WithEvents FormRecEntry As UserForm1
Private Const ModName As String = "LIVE"
Private Const ReinsDelim = vbLf
Private Const TBL_Name As String = "FAC_RISKS"
Private Const FLD_Record As String = "Record"
Private Const FLD_Status As String = "Status"
Private Const FLD_Reference As String = "Reference"
Private Const FLD_Insured As String = "Insured"
Private Const FLD_StartDate As String = "Start Date"
Private Const FLD_EndDate As String = "End Date"
Private Const FLD_Share As String = "Share"
Private Const FLD_Reinsurer As String = "Reinsurer"
Private Const FLD_Brokerage As String = "Brokerage"
Private Const FLD_Excess As String = "Excess"
Private Const FLD_Cedent As String = "Cedent"

Private Sub AmendButton_Click()
  Const procName As String = "AmendButton_Click"
  Dim rec As CLS_Record
  On Error GoTo ErrHandler
  Set rec = GetSelectedRecord
  If rec Is Nothing Then
    Err.Raise Number:=vbObjectError + 513, Description:="Please select the applicable record and try again."
  End If
  If FormRecEntry Is Nothing Then
    Set FormRecEntry = New UserForm1
  End If
  FormRecEntry.LoadRecord record:=rec
  FormRecEntry.Show
ExitProc:
  Set rec = Nothing
  Exit Sub
ErrHandler:
  Err.Source = ModName & "." & procName
  MsgBox prompt:="Oops! The Selection has no data                                                                 " & Err.Description
  Resume ExitProc
End Sub

Private Sub Apply_Filter_Click()
  With ActiveWorkbook.SlicerCaches("Slicer_STATUS")
    .SlicerItems("ACTIVE").Selected = True
    .SlicerItems("CANCELLED").Selected = False
    .SlicerItems("NOT BEING RENEWED").Selected = False
    .SlicerItems("NTU").Selected = False
    .SlicerItems("REPLACED").Selected = False
  End With
  ActiveWorkbook.Worksheets("FAC DATABASE").ListObjects("FAC_RISKS").Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("FAC DATABASE").ListObjects("FAC_RISKS").Sort.SortFields.Add2 Key:=Range("FAC_RISKS[[#Headers],[#Data],[END DATE]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  With ActiveWorkbook.Worksheets("FAC DATABASE").ListObjects("FAC_RISKS").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
End Sub

Private Sub NewButton_Click()
  Const procName As String = "NewButton_Click"
  On Error GoTo ErrHandler
  If FormRecEntry Is Nothing Then
    Set FormRecEntry = New UserForm1
  End If
  FormRecEntry.Show
ExitProc:
  Exit Sub
ErrHandler:
  Err.Source = ModName & "." & procName
  MsgBox prompt:="Error " & Err.Number & Err.Description, Title:=Err.Source
  Resume ExitProc
End Sub

What does "unable" actually mean? There doesn't appear to be anything in that code that would require it to be in a worksheet code module.

You have to replace Me with a reference to the relevant sheet/object. WithEvents variables do need to be in a class, so you will either need to create one, or put them in an existing one and adjust any calling code as necessary.

If Me was referring to Sheet1, then yes.

As I said, any WithEvents variables need to be in a class module. The other variables can be in a regular module.

No, you can't put activex buttons in the ribbon, but you don't need to so that's irrelevant.

Then whatever change you made was wrong.

That may be true but you didn't say what you changed (from / to) that caused the error...

Thank you for the negative rep. I wish you luck with your project.