L
Lee
Hello,
I have a workbook that has 50 sheets. I want to create a loop that will
copy each individual sheet to its own workbook and save it with a name.
This is what I have so far. Any help would be great.
Sheets("1").Select
Sheets("1").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\hola\Desktop\Legal Entity\Master LE
Files\WCA Individual Emails\World Class Accounting Responsibility - 1.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("World Class Accounting Email.xls").Activate
Sheets("2").Select
Sheets("2").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\hola\Desktop\Legal Entity\Master LE
Files\WCA Individual Emails\World Class Accounting Responsibility - 2.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
I have a workbook that has 50 sheets. I want to create a loop that will
copy each individual sheet to its own workbook and save it with a name.
This is what I have so far. Any help would be great.
Sheets("1").Select
Sheets("1").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\hola\Desktop\Legal Entity\Master LE
Files\WCA Individual Emails\World Class Accounting Responsibility - 1.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("World Class Accounting Email.xls").Activate
Sheets("2").Select
Sheets("2").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\hola\Desktop\Legal Entity\Master LE
Files\WCA Individual Emails\World Class Accounting Responsibility - 2.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub