IsEmpty Help for multiple Cells

Hi,

In the spreadsheet I am working on, I have 2 different sets of Contacts:

Contact 1 = cells E55 (Con1) and E59 (Con2)
Contact 2 = cells E77 (Con3) and E81 (Con4)

I have code so that if all the cells are blank, then a MsgBox will pop up (thanks to ArkAdi for the assistance )

However, I need to expand this so if one of the 2 cells in each contact group (e.g. Contact 1 or Contact 2) is blank that a MsgBox will pop up giving a warning. (e.g. If Con1 <> 0, but Con2 = 0 & Con3 and Con4 =0 - MsgBox stating that Con2 is Blank)

The following code will warn if all cells are blank, but then also runs the individual cell check. Or if one of the cells isnt blank, then it will run the IsEmpty code only.

Sub Contact_2()
Dim Con1, Con2, Con3, Con4
Dim str As String

Con1 = Worksheets("Registration Form").Range("E55").Value
Con2 = Worksheets("Registration Form").Range("E59").Value
Con3 = Worksheets("Registration Form").Range("E77").Value
Con4 = Worksheets("Registration Form").Range("E81").Value

If WorksheetFunction.CountA(Range("E55,E59,E77,E81")) = 0 Then
    MsgBox "this is a test"
Else
GoTo Contst:

End If

Contst:
Con1 = Worksheets("Registration Form").Range("E55").Value
    If IsEmpty(Con1) Then
        str = "Please input the required Con1" & vbCrLf
    End If
Con2 = Worksheets("Registration Form").Range("E59").Value
    If IsEmpty(Con2) Then
        str = str + "Please input the required Con2" & vbCrLf
    End If
Con3 = Worksheets("Registration Form").Range("E77").Value
    If IsEmpty(Con3) Then
        str = str + "Please input the required Con3" & vbCrLf
    End If
Con4 = Worksheets("Registration Form").Range("E81").Value
    If IsEmpty(Con4) Then
        str = str + "Please input the required Con4" & vbCrLf
    End If

If Len(str) > 0 Then
  MsgBox str & " " & vbCrLf & "Once completed, submit your request again"
End If

Exit Sub

Hopefully I have explained what I need clearly enough and thank you in advance,

Chris

Hi Leigh Ross,

Thank you very much for the code, works a treat. Plus I learned about Xor....

Chris

Try

Sub Contact_2()
    Dim i As Long, msg As String, x As Range
    With Sheets("Registration Form")
        With .Range("e55,e59,e77,e81")
            For i = 1 To .Areas.Count
                If IsEmpty(.Areas(i).Value) Then msg = msg & ", Con" & i
            Next
        End With
    End With
    If Len(msg) Then MsgBox "Please input the required" & _
            String(2, vbLf) & Mid$(msg, 3), vbCritical
End Sub

Hi jindon,

Thank you very much for the simplified code - bit beyond my comprehension at the moment but hope to get to that level

Chris

You are welcome and thanks for the rep.

Is is a very simple code so I hope you will understand easily.