Find empty cells in multiple range of cells

[sanilmathews]

HI,

I am trying to build a checklist wherein user inputs a string in column A within the following ranges A6:A8, A10:A14, A16:A18 and A20:A23. I can also name these ranges as Sec1, Sec2, Sec3, and Sec4 for easy reference in the code.

I am trying to get a vba code that would check if all the cells in the range are filled with any string. If any single cell is empty, a message should pop up saying "One or more cells are blank" and if all cells are filled then return "Checklist completed".

Thanks

 

[Scott Huish]

Sub CheckForBlanks()
On Error Resume Next
Dim c As Range, d As Range
Set c = Union(Range("A6:A8"), Range("A10:A14"), Range("A16:A18"), Range("A20:A23"))
Set d = c.SpecialCells(xlCellTypeBlanks)
If d Is Nothing Then MsgBox "Checklist Completed" Else MsgBox "One or more cells are blank"
End Sub

 

[sanilmathews]

Thank you so much!