EXCEL VBA - Assigning a MsgBox in BeforeSave to many Workbooks

[turandot]

I have 2000 pcs workbooks created from a template in Excel 2002 that had touch (tpwiz) recording in the database and it was OK for the change to EXCEL 2010. I converted it to each of them in the application of any amendments quite add up to the base (it happens often).
How VBA code to assign to the current "open) workbooks for all 2000psc - following code (which displays the message) (I might add that the opening of 50pcs sheet 40 times this no problem):

Dim Odp
 Odp = MsgBox ("Zapisz do bazy jeżeli ...", VbYesNo + VbInformation + VbDefaultButton1, "turandot")
  If Odp = 6 Then
   MsgBox "OK", , "turandot"
  Else
   MsgBox "Tak tylko przypominam", , "turandot"
  End If