Vba para impedir planilha seja salva com células em branco

[MathFrnds]

Bom dia, sou novo aqui no fórum e também com VBA.

 

Vou direto ao assunto. Estou com uma planilha e quero que não seja permitido o salvamento dela com determinadas células em branco, são ela D4, F4, K4, K6 e G31.

Eu utilizei um código que apenas alerta que a mesma está em branco, porém, ainda permite que o mesmo saia da planilha.

Resumindo: quero impedir que o usuário saia da planilha sem preencher essas células.

 

Aqui está o código que estou usando:

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If Range("D4") = "" Or Range("F4") = "" Or Range("K4") = "" Or Range("K6") = "" Or Range("G31") = "" Then
       If MsgBox("Existem celulas em branco" & vbCrLf & _
           "Verifique o preenchimento das células antes de Salvar!", _
           vbDefaultButton2 + vbYesNo) = vbYes Then Exit Sub
       Cancel = True
   End If
End Sub

[Basole]

Experimente esta alteração:

 

	Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If Range("D4") = "" Or Range("F4") = "" Or Range("K4") = "" Or Range("K6") = "" Or Range("G31") = "" Then
      
           MsgBox "Existem celulas em branco" & vbCrLf & _
           "Verifique o preenchimento das células antes de Salvar!", vbCritical, "Verificando Dados Preenchidos"
       
       Cancel = True
       
   End If
   
End Sub

[MathFrnds]

@Basole Obrigado, amigo! Funcionou perfeitamente, do jeito que eu queria.