No guardar si hay celdas vacias

[Piul69]

El problema que tengo es que me han pasado esta macro, la cual me impide GUARDAR el libro si no hay 3 celdas, concretas, con información, pero no puedo salvar el proyecto con las celdas vacías. Procedo a intentar explicarme mejor:

El código que me han pasado es este:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'selecciono la hoja que debe controlar

Sheets("Mañana").Select

If Range("G3") = "" Or Range("B58") = "" Or Range("F58") = "" Then

MsgBox "Por favor, ingresa la fecha y los Nº"

Cancel = True

End If

End Sub


[/CODE]

Y me han dado la indicación de abrir el programador, editor de visual basic, doble clic en ThisWorkbook para abrir el código y pegar el texto.

Bien, pego el texto, cierro el editor pero luego no me es posible guardar con esas celdas en blanco, por lo que creo que me falta un paso. Lo que yo busco es tener la plantilla en blanco pero que no deje guardar un nuevo libro, creado a partir de la plantilla, sin rellenar esas 3 celdas.

¿Una ayudita?

El formato en el que lo quiero grabar es en plantilla excel habilitada para macros.

Gracias y saludos.

Pd. espero no pedir algo imposible