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):

Please Login or Register  to view this content.

[Debraj Roy]

Private Sub Workbook_BeforeClose (Cancel As Boolean)
Dim Re
Answer = MsgBox ("did you read the forum rules regardig code tag", VbYesNo + vbInformation + vbDefaultButton1, "Turandot")
If Answer = 6 Then
MsgBox "That's good,Welcome to forum", "Turandot"
else
MsgBox "So just Read forum rules", "Turandot"
End If
End Sub