Save and Close Workbook Macro

[rockyw]

Can a macro save and close a workbook? What would a simple one be, and can this be added to existing code? Or run off a timer? Thanks

 

[JoeMo]

If the code resides in the workbook you want to save and close, this line can be added to the code at the point where you want to save and close:

ThisWorkbook.Close SaveChanges:=True

If the code is elsewhere:

Workbooks("myWorkbook.xls").Close SaveChanges:=True

Substitute for "myWorkbook.xls" the name and file extension of the workbook you want to save and close.

 

[rockyw]

These are the last few lines of code, do I insert this in this way? Thanks for the reply.

    Else    'skip it and indicate as such
        ws.Range("A" & RowIdx).Offset(0, TrackCol - 1) = "Skipped"
    End If
Next RowIdx
'Go back to the first sheet
ws.Select
Set ws = Nothing
Application.ScreenUpdating = True
    End Sub

Change to

    End If
Next RowIdx
'Go back to the first sheet
ws.Select
Set ws = Nothing
Application.ScreenUpdating = True
ThisWorkbook.Close SaveChanges:=True
    End Sub

 

[pedie]

This are different ways and possibilities....one of which.

[/FONT]
[FONT=Courier New]Sub save_and_close()
    ThisWorkbook.Close True
End Sub

 

[JoeMo]

The code you have posted will save and close the workbook that code is in.

 

[rockyw]

I got an Expected End Sub error. I used this code at the end.

ws.Select
Set ws = Nothing
Application.ScreenUpdating = True
Sub save_and_close()
    ThisWorkbook.Close True
End Sub

This part was highlighted, Application.ScreenUpdating = True

Do I need to change somthing? Thanks

 

[JoeMo]

Stick with what you posted in Post #3. You don't want or need a separate subroutine.

 

[rockyw]

JoeMo, That works great, Thanks a lot. have a good night. Rocky