Hi Johan,

Am Fri, 25 Nov 2016 22:49:57 +0100 schrieb Claus Busch:

Sub Test()

better try:

Sub Test()
Dim rngC As Range
Dim varEmpty() As Variant
Dim n As Long, i As Long
Dim myStr As String

For Each rngC In Intersect(Range("K:K"), Selection)
If Len(rngC) = 0 Then
i = i + 1
ReDim Preserve varEmpty(n)
varEmpty(n) = rngC.Address(0, 0)
n = n + 1
End If
Next
Select Case i
Case 0
Exit Sub
Case 1
myStr = varEmpty(0)
Case Else
myStr = Join(varEmpty, Chr(10))
End Select
MsgBox "These " & i & " cell(s) are empty:" & Chr(10) & myStr
End Sub


Regards
Claus B.
--
Windows10
Office 2016