That will fail if only 1 cell is left blank. Need to use found as the
criteria.

Sub blanks()
Dim myrange As Range, c As Range
Dim found As Integer
Dim myaddress As String
Dim count As Long
Set myrange = Range("A1:A10") 'Change to suit
   For Each c In myrange
       If found <> 1 And IsEmpty(c.Value) Then
           found = 1
           myaddress = c.Address
           ElseIf found = 1 And IsEmpty(c.Value) Then
           count = count + 1
       End If
   Next
If found = 1 Then
   MsgBox myaddress & " has not been populated and there are " _
   & count & " other blanks"
Else
   MsgBox "All cells are filled"
End If
End Sub

Mike F