I have used Before Save code but is there a way to do After Save code?


Thank you,

Steven

Caters for both Save and SaveAs

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim sFile
Application.EnableEvents = False
'<Optional - this would be before save code>
Cancel = True
If SaveAsUI Then
sFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If sFile <> False Then
ThisWorkbook.SaveAs sFile
'<Optional - this would be after save code>
End If
Else
ThisWorkbook.Save
'<Optional - this would be after save code>
End If
Application.EnableEvents = True
End Sub


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Steven" <(E-Mail Removed)> wrote in message
news:64F4BBDF-3EAE-4608-B67B-(E-Mail Removed)...
>I have used Before Save code but is there a way to do After Save code?
>
>
> Thank you,
>
> Steven