On Jun 4, 11:18 am, "Peter T" <peter_t@discussions wrote:
One idea perhaps, while developping -

If Not ThisWorkbook.Saved Then
If MsgBox("Do you want to save" & vbCr & _
ThisWorkbook.FullName, vbYesNo) = vbYes Then
Me.Save
End If
End If
End Sub

That's the ticket.

Thanks!