Save Workbook in VBA

[Drfox3]

Although I have worked with Excel several years, I am very new to the VBA community. I was hoping that someone might be able to help me in this. I have some code that, when run, goes into an open workbook and copies each sheet to a seperate workbook. I run into problems when I try to save the workbook (created from the worksheet) as it's own file.
What I want to do is to copy each sheet into a new workbook, then save the workbook as the name of the sheet, then close it and go to the next sheet in the original workbook.
When I run the code I get a Run-time error '438' Object doesn't support this property or method.
Help! I can't figure out what i am doing wrong.
Below is the code -

Dim Sourcewb As Workbook
Set Sourcewb = ActiveWorkbook
Dim j As Integer, k As Integer
j = Worksheets.Count
For k = 1 To j
With Worksheets(k)
Sheets(k).Select
Application.CutCopyMode = False
Sheets(k).Copy
Dim SaveLocation As String
SaveLocation = "I:\ABT&S\SunGard\Reporting\Advisor Book of Busniess\Division_Reports\Division_Reports_New\"
Dim SaveName As Worksheet
Set SaveName = Sheets(k)
ActiveWorkbook.SaveAs Filename:=SaveLocation & SaveName & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False (Where error pops up)
Sourcewb.Activate
End With
Next k

 

[VoG]

Try

Dim SaveLocation As String
Dim SaveName As String
Dim j As Integer, k As Integer
SaveLocation = "I:\ABT&S\SunGard\Reporting\Advisor Book of Busniess\Division_Reports\Division_Reports_New\"
j = Worksheets.Count
For k = 1 To j
    Sheets(k).Copy
    SaveName = ActiveSheet.Name
    ActiveWorkbook.SaveAs Filename:=SaveLocation & SaveName & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
Next k

 

[Drfox3]

Holy Moley that worked!
Thank you very much - I have been banging my head on this for 5 hours and could not get around the error 438. I will take a long look at your code and, hopefully, learn something.
Don

 

[rnc]

This is a really nice and effective macro!!!

Well designed....thank you for the help....I modified slightly to get what I needed it to you.