有啥方法可以退出时自动执行宏命令吗

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DeleteAllPictures
End Sub
------------------------------
Sub DeleteAllPictures()
Dim sh As Worksheet
Dim pic As Picture
Set sh = ThisWorkbook.Sheets("Sheet1")
For Each pic In sh.Pictures
pic.Delete
Next pic
End Sub