Message Box for Empty Cells within a range of multiple Cells

[Ciaranah93]

Reaching out!

I've used this VBA to give me a msg box if a cell within the range is blank

Application.ScreenUpdating = False
If IsEmpty(ThisWorkbook.Sheets(6).Range("U76", "U229")) Then
MsgBox ("Please Review your answers, you've missed one")
Cancel = True
End If


it works if all the Cells are blank, but not if just one is. Can anyone help Please?


Cheers
Ciaran

 

[Joe4]

You can use the Countblank function in VBA, as shown here: https://www.mrexcel.com/forum/excel...-blank-cells-range-using-vba.html#post1614095

 

[Logit]

.

Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheet6.Range("U76").Value = "" Or Sheet6.Range("U229").Value = "" Then
    MsgBox [COLOR=#333333]"Please Review your answers, you've missed one !"[/COLOR], vbCritical, "Error"
    Cancel = True
End If


End Sub