The last workbook created is not closing....

[raghuprabhu]

Hi,

The following code goes through the records and saves the workbook as the cell value in the column N.

The only problem is the last workbook created is not saving and is not closing.

Sub SaveAsString()
Dim i As Integer
Dim lRow As Integer
Dim sPath As String
Dim sFileName As String
Dim wb As Workbook
sPath = ThisWorkbook.Path
lRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row


Application.DisplayAlerts = False
Application.ScreenUpdating = False
    For i = 2 To lRow             
            
            sFileName = Range("N" & i).Value
            ActiveWorkbook.SaveAs filename:=sPath & "\" & sFileName & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Next i
Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub

Any suggestions would be helpful.

Thank you

Regards
Raghu

 

[sykes]

Try this (untested):

Sub SaveAsString()
Dim i As Integer
Dim lRow As Integer
Dim sPath As String
Dim sFileName As String
Dim wb As Workbook
sPath = ThisWorkbook.Path
lRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row


Application.DisplayAlerts = False
Application.ScreenUpdating = False

    With ActiveWorkbook
        For i = 2 To lRow
                
                sFileName = Range("N" & i).Value
               .SaveAs Filename:=sPath & "\" & sFileName & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        Next i
   
Application.ScreenUpdating = True
Application.DisplayAlerts = True
                
                .Close (True)
    End With
End Sub

 

[sykes]

.............actually, sorry - didn't read your post correctly, I thought you wanted to close the workbook running the code, after the other workbooks were created.

 

[raghuprabhu]

HI Sykes,

I don't want to close the workbook running the code. I want to save and close the last workbook created. It is creating but not saving and closing.

Regards
Raghu