Visual Basic - Alertar celdas vacías antes de guardar

Tengo el siguiente código guardado en ThisWorbook:

Sub Verificar()
If SaveAsUI = False Then
If IsEmpty(Sheets("Hoja1").Range("A1")) Or IsEmpty(Sheets("Hoja1").Range("B1")) Then
MsgBox "Las celdas A1 y/o B1 están vacías. Por favor, completa ambas celdas antes de guardar.", vbExclamation, "Celdas Vacías"
Cancel = True
End If
End If
End Sub



Sin embargo, al darle click a "guardar" no verifica las celdas y por lo tanto me permite guardar el libro aún teniendo dichas celdas vacías, quiero que me alerte que están vacías y no me permita guardar el libro

Una pregunta

Pero llamas a ese codigo en el evento Before Close?? por que si pongo ese codigo en el evento que te digo funciona perfectamente