SaveAs文件名语句不适用于Mac笔记本电脑

Question

感谢阅读我的查询。

我已经使用Windows 10笔记本电脑在VBA Excel中编写了一些代码。但是这些程序也打算由某些mac笔记本电脑用户使用，并且在最后SaveAs文件名语句中遇到错误。 但这在Windows笔记本电脑中可以正常工作。

temp1 = ThisWorkbook.Sheets("EVALUATION DETAILs").Range("F4").Value
temp2 = ThisWorkbook.Sheets("Wlcm Note").Range("G5").Value
Path = ThisWorkbook.Path

Msname = "Mystery_Shopper_" & temp1 & "_" & temp2

Application.DisplayAlerts = False

ThisWorkbook.SaveAs FileName:=Path & "" & Msname & "_" & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".XLSB", FileFormat:=50

非常感谢。