Pulling Multiple Vales From Multiple Cells & Displaying them in one cell.

[JPP]

I have 100 cells that display either a number, or nothing in them. I
there is a number >=1, I would like it to display on one page, my maste
page. The second page is where I copy & paste all of my information, an
the display page, or pretty part is the first page. I have tried man
thing I have seen, the + method, the &""& method. None of these work. I
it possible to display the content all in one cell

 

[Gord Dibben]

Sub Combine_Numbers()
Dim lastrow As Long
Dim cell As Range
Dim DataRng As Range
Dim strRow As String
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set DataRng = ActiveSheet.Range("A1:A" & lastrow)
For Each cell In DataRng
If IsNumeric(cell.Value) And cell.Value >= 1 Then
strRow = strRow & cell.Value & ","
End If
Next cell
Sheets("Master").Range("B1").Value = strRow
End Sub


Gord