Error: sin memoria 7 macro excel

Tengo esta macro que me ha funcionado bien en excel en windows, sin embargo al intentar ejecutarlo en mac me da Error: Error: sin memoria 7

¿Me podría ayudar a detectar que esta fallando? Aquí dejo la macro se hizo para imprimir un formulario en pdf, con el nombre del cliente, bloquea y desbloquea temporalmente y finalmente borra los campos editados aumentando en 1 la numeración del pedido

Sub Rect‡nguloredondeado_Haga_clic_en()

On Error GoTo aviso

Dim xcel As String

Dim zfilename As String

Dim outName As String, i As Long

If InStr(1, ActiveWorkbook.Name, ".", vbTextCompare) > 1 Then

   outName = Mid(Range("D8") + Format(Now, " dd-mm-yyyy"), 1, InStr(1, ActiveWorkbook.Name, ".", vbTextCompare) - 1)

Else

  outName = ActiveWorkbook.Name

End If

zfilename = ThisWorkbook.Path & "\" & outName

ActiveSheet.ExportAsFixedFormat xlTypePDF, zfilename

'Aqui se vuelve a la hoja Pedido, se desprotege la hoja, se aumenta en 1 el numero de pedido, y se vuelve a proteger

Sheets("PEDIDOS").Activate

Sheets("PEDIDOS").Unprotect "******"

Range("G3").Value = Range("G3").Value + 1

Sheets("PEDIDOS").Protect "******", DrawingObjects:=True, Contents:=True, Scenarios:=True

'Aqui se borran los datos ya usados

Range("F6:G6"). ClearContents

Range("C8:E8"). ClearContents

Range("F8:G8"). ClearContents

Range("C10:C39"). ClearContents

Range("E10:E39"). ClearContents

Range("C43:E44"). ClearContents

Range("F41:F42"). ClearContents

    Range("C7").Select

    Exit Sub

aviso:

   MsgBox "Error: " & Err.Description & " " & Err.Number

End Sub