Creating a Static Chart

[CBrine]

I'm not sure how to integrate this into your code, but it will take a range object and translate it into a comma seperated string. I think you should be able to use it for what you want. Let me know

Private Sub CommandButton1_Click()
Dim Test As Range, cell As Range
Dim Values As String
Set Test = Range("a1:a10") 
For Each cell In Test
    If cell.Value <> "" Then
        If Values <> "" Then
            Values = Values & "," & cell.Value
        Else
            Values = cell.Value
        End If
    End If
Next
MsgBox Values
End Sub