Using Save As to create a new workbook

[ABabeNChrist]

I doubt it since Macs don't use backslashes as path separators. I'd suggest you replace those with Application.PathSeparator.

Something like this

[vba]
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & _
Application.PathSeparator & nwb, FileFormat:=xlOpenXMLWorkbookMacroEnabled
strName = ActiveWorkbook.Name[/vba]