Excel - Comprobación celdas vacías

Sub Verifica_Celda()

If Range("A1") = "" Then

MsgBox ("EXISTEN CELDAS OBLIGATORIAS SIN LLENAR")

Range("A1").Select

Else

If Range("B5") = "" Then

MsgBox ("EXISTEN CELDAS OBLIGATORIAS SIN LLENAR")

Range("B5").Select

Else

ActiveWorkbook.Save

ActiveWindow.Close

End If

End If

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Celdas, i&

'Celdas que no deben quedar vacías (agregar las necesarias)

Celdas = Array("A1", "B1", "C1")

'Verifica que ninguna esté vacía

For i = 0 To UBound(Celdas)

    If IsEmpty(Range(Celdas(i))) Then

       'Mostrar mensaje de aviso

       MsgBox "La celda " & Celdas(i) & " está vacía!", vbExclamation + vbOKOnly, "Atención"

       'Selecciona celda vacía

       Range(Celdas(i)).Select

       'Impide cerrar el libro

       Cancel = True

       Exit For

    End If

Next

End Sub