Hi ...I am slowly getting there ..and the username thing works a beaut....
I have modified the VBA for the save process but it's falling down...here's the code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim response As Long
MsgBox "If you don't save, you'll have to recheck all your DD's"
response = MsgBox("Do you want to Save Now?", vbYesNo)
If response = vbYes Then
ActiveWorkbook.Save
ElseIf response = vbNo Then
ThisWorkbook.Saved = True
MsgBox "You will not save any information on DD's you have entered_"
MsgBox "Are you sure you want to exit without save", vbYesNo, "Last Chance!"
End If
If Reponse = vbYes Then
ActiveWorkbook.Close
ElseIf response = vbNo Then
ActiveWorkbook.Save
End If
It all works perefectly apart from what happens at the end when the "last chance" MsgBox appears....regardless of whether they click Yes or No, it saves the file and closes it!