Obligar a rellenar campos

[JoaoM]

Alguna macro para agregar este codigo en

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if range("A1")<>"" AND range("B1")<>"" AND range("C1")<>"" then
ActiveWorkbook.Save 'SERIA ALGO ASÍ
Else
msgbox("La linea A1, está incompleta, favor revise y proceda" & vbCrlf & vbcrlf & "Antes no podrá cerrar el libro"), , "vbInformation" + "ERROR DE CIERRE"
End if
End Sub

Del MsgBox faltaria:

Si llena las celdas mensionadas en el codigo, NO presenta mensage de error y cierra aceptando guardar.

Si falta llenar alguna de las celdas mensionadas, PRESENTA mensage de error y no cierra el libro mientras no llene las celdas respectivas

Por mi parte ya intente de varias formas pero no doy con ella, visto que mis conocimientos son debiles en esto de VBa y macros.