excell makro farklı kaydet buton

[g_tuhan]

merhaba arkadaşlar bir konu hakkında yardımınıza ihtiyacım var.

Sub dahilPDF()
'
' dahilPDF Makro
'

'
Range("H6").Select
ChDir "C:kalasörün bulunduğu adres var"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\buradada farklı kaydettiği klasörün ismi var\" & "\" & [j2], Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Range("I5:J5").Select
Range("J5").Activate
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 4")).Select
End Sub

bu makroyu pdf olarak windows pc de sorunsuz kullanıyorum fakat mac book pc ye uyarladığımda hata veriyor.

birde excell farklı kaydet butonu makrosu var

Sub excell()
'
' excell Makro
'

'
ChDir "C:\klasörün bulunduğu adres"
ActiveWorkbook.SaveAs Filename:= _
"C:\klasörün farklı kaydettiği klasörün adresi var\" & "_" & [j2], FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
bu makroyu xlms olarak windows pc de sorunsuz kullanıyorum fakat mac book pc ye uyarladığımda hata veriyor.
yardımcı olursanız sevinirim