Adding a count to concatenate range function

Thanks for the code tag and I hope you can edit your first post as well.

Here's an idea

Function ConcatenateRange(ByVal cell_range As Range, _
                Optional ByVal separator As String = " ") As String
    Dim e, n As Long
    For Each e In cell_range.Value
        If e <> "" Then
            n = n + 1
            ConcatenateRange = ConcatenateRange & separator & n & ") " & e
        End If
    Next
    If Len(ConcatenateRange) Then ConcatenateRange = Mid$(ConcatenateRange, Len(separator) + 1)
End Function

Jindon, you are a life saver. It works perfectly thank you! +rep!