Sur Mac le séparateur dans le chemin n'est pas l'antislash \ , de plus il vaut mieux préciser le format du fichier :
VB:
Sub e()
Dim ch As String
ch = Replace(Range("a1"), "\", Application.PathSeparator)
Workbooks.Add
ActiveWorkbook.SaveAs ch, xlOpenXMLWorkbook 'extension .xlsx
End Sub