Show all 0 value cells in a MsgBox

[Kigiin]

Hi!

I would like to write a macro that shows all cells address (or row) which value is 0 in column 10.

So far i only could manage this:

Sub check()
Dim LastRow As Long




LastRow = Cells(Rows.Count, 1).End(xlUp).Row


For i = 2 To LastRow
If Cells(i, 10).Value = 0 Then
MsgBox ("0 value in" & Cells(i, 10).Address & "cell)
End If

Next i


End Sub

But my problem is, that it shows a lot of separate msgbox, but I would like only one, which contains all the addresses.

Thank you for your help!

 

[njimack]

Sub check()
 
 Dim LastRow As Long, i As Long
Dim Zero_Value As String
 LastRow = Cells(Rows.Count, 1).End(xlUp).Row

 For i = 2 To LastRow
    If Cells(i, 10).Value = 0 Then Zero_Value = Zero_Value & Cells(i, 10).Address & ", "
Next i
 
 Zero_Value = Left(Zero_Value, Len(Zero_Value) - 2)
 
 MsgBox "0 value in " & Zero_Value
 
 End Sub

 

[Kigiin]

Sub check()
 
 Dim LastRow As Long, i As Long
Dim Zero_Value As String
 LastRow = Cells(Rows.Count, 1).End(xlUp).Row

 For i = 2 To LastRow
    If Cells(i, 10).Value = 0 Then Zero_Value = Zero_Value & Cells(i, 10).Address & ", "
Next i
 
 Zero_Value = Left(Zero_Value, Len(Zero_Value) - 2)
 
 MsgBox "0 value in " & Zero_Value
 
 End Sub

Thank you so much for your help!
But i have one last question. If there is no cell with 0 value in collumn 10 then this code get run-time error.
How could I expand this code that in this case the msgbox says "that everything is fine"?

 

[Kigiin]

I find a way! I added only 2 lines:
OnError GoTo Error_handler

Error_handler:
MsgBox "there is no 0 value"