Auto PDF Print and Save Button

[Capy_Uther]

I use a VBA project with Excel on my job but i just bought a macbook laptop and almost all the VBA works right, im just having some issues with the follow macro that i use with a button to auto print and save as PDF on the folder where i have the excel and auto name it using initials date and some numbers:


Can anyone help me why is not working on mac ?


'Print 1st letter from Name and Last Names
Sub BotonPDF1()

Dim CeldaNombre As Range
Dim CeldaNombreA As Range
Dim NombreArchivo As String
Dim RutaArchivo As String
Dim nombre As Variant, init As Variant

Set CeldaNombre = Hoja2.Range("A10")
Set CeldaNombreA = Hoja2.Range("G4")

If CeldaNombre.Value = "" Then
NombreArchivo = Format(Now, "ddmmyyyy_") & Mid(CeldaNombreA.Value, 1) & ".pdf"
Else
For Each init In Split(Mid(CeldaNombre, 9), " ")
nombre = nombre & Left(init, 1)
Next
NombreArchivo = nombre & "-" & Format(Now, "ddmmyy-") & "12-" & Mid(CeldaNombreA.Value, 1) & ".pdf"

End If

'2 initials

RutaArchivo = Application.ActiveWorkbook.Path & Application.PathSeparator & NombreArchivo

Hoja2.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True

Hoja2.Range("A4").Select

End Sub