Subrutina de ThisWorkBook para nuevo libro.-

Hola Amigos:

Mis mejores saludos para tod@s.
Mi nueva consulta, es que necesito que la siguiente rutina de ThisWorkBook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("VENTAS").Range("J29").Value = Empty Then
Cancel = True
MsgBox "DEBES DE INTRODUCIR UN VALOR (LOCAL O INTENACIONAL)"
Range("A9").Select
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("VENTAS").Range("J29").Value = Empty Then
Cancel = True
MsgBox "DEBES DE INTRODUCIR UN VALOR (LOCAL O INTENACIONAL)"
Range("A9").Select
End If
End Sub

Poderla llevar al ThisWorkBook de una hoja que acabo de desprender de un
libro...
O poderla ejecutar desde el cuerpo o módulo del nuevo libro, pero para esto
último, me imagino que la gramática de la sentencia, debe de ser diferente y
no sé hacerlo.

Me podríais ayudar una vez más, por favor ???

Si necesitáis algún dato más... un ejemplo... etc... me comentáis, por favor
???

Mil gracias por adelantado y un fuerte abrazo.

JC