I'm trying to write an Excel sub to copy all the sheets in a workbook and save them to a specific folder and name them after their tab names. The problem I seem to be having is with saving to a specific folder. The code I have now errors on Set nm = ActiveSheet.Name.
Dim ws As Worksheet
Dim nm As Name
Set nm = ActiveSheet.Name
For Each ws In ActiveWorkbook.Worksheets
ActiveWorkbook.SaveAs Filename:= _
"\\domain-01.com\dfs$\care-one\users\care-one_nanthony\desktop\Storage\& nm" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _