Function fncombine(myrange As Range)
Dim strcombine As String
Dim mycell As Range
strcombine = ""
For Each mycell In myrange
If mycell.Value <> "" Then
strcombine = strcombine & mycell.Value & ","
End If
Next
strcombine = Left(strcombine, Len(strcombine) - 1)
fncombine = strcombine
End Function