if one of the cell on a range is empty a message will apear

[mark692]

hi guys a have a range of cell

example

A1 B1 C1 D1 E1

if i click the button a message will tell me that i have a blank cell on range, and if theres no empty cell it will save my worksheet, thanks

 

[Yongle]

Sub Test()
    Select Case WorksheetFunction.CountBlank(Sheets("[I][COLOR=#ff0000]NameOfSheet[/COLOR][/I]").Range("A1:E1"))
        Case 0:         ThisWorkbook.Save
        Case Else:      MsgBox "contains blanks"
    End Select
End Sub