Run-time-error '429': ActiveX component can't create object --> Create Email w/ Excel info

Hello everyone.
I am getting an error when running the Macro below on a Mac.
Debugger highlights section Set OutApp = CreateObject("Outlook.Application")
Would appreciate some guidance as to what should be done for this Macro to work on a Mac. Thank you.

Complete macro code follows:

Sub CXR()

ActiveSheet.Unprotect Password:=""

' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2010
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    Set rng = Nothing
    On Error Resume Next
    Set rng = ActiveSheet.Range("CXR_Range").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
 
    If rng Is Nothing Then
        MsgBox "The selection is not a range or the sheet is protected" & _
               vbNewLine & "please correct and try again.", vbOKOnly
        Exit Sub
    End If
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = ActiveSheet.Range("B9").Value
        .Cc = ActiveSheet.Range("B10").Value
        .BCC = ""
        .Subject = ActiveSheet.Range("B11").Value
        .HTMLBody = RangetoHTML(rng)
        .Display   'or use .Send
    End With
    On Error GoTo 0
 
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing

ActiveSheet.Protect Password:=""

End Sub

You need to set a reference to Microsoft Outlook xx.x Object Library, where xx.x represents the version of Outlook that you are working with...

Untitled.png



To overcome this I prefer to make use of...
Replace this...

With OutMail

With...

With CreateObject("Outlook.Application").CreateItem(0)

and remove all this...

Dim OutApp As Object
Dim OutMail As Object
 
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Set OutMail = Nothing
Set OutApp = Nothing

Then your code is not doing what you expect it to do...Incorrect code use...
I suggest uploading a sample file and explaining in detail what you want to achieve...See Top Yellow banner...

Where is the code for this function...
RangetoHTML

Since you appear to be using some of Ron's code already, you should read the Mac parts of his site, especially: http://www.rondebruin.nl/mac/macmail/macoutlook2016.htm