Combine cells into CSV Text Sting

Maybe like so:

Sub JoinEm()
Dim MyArr As Variant
    
    MyArr = Application.WorksheetFunction.Transpose(Range("A1:A9").Value)
    Range("B1").Value = "Begin: " & Join(MyArr, ",") & " :End"

End Sub

Originally Posted by JBeaucaire

Maybe like so:

Sub JoinEm()
Dim MyArr As Variant
    
    MyArr = Application.WorksheetFunction.Transpose(Range("A1:A9").Value)
    Range("B1").Value = "Begin: " & Join(MyArr, ",") & " :End"

End Sub

JB,

I like this option. Let me ask you if there is away to modify this so that I could put another field next to the range and use that as a number field to determine a number to filter on. Say for example the extra column would have 1 thru 9 and if I wanted to do a delimited string for the rows with a 3 in the 2nd column?

Does this make sense?