VBA Merge cells using input box

[decadence]

Hi Is it possible to merge cells together deliminated by an input box, Any help would be appreciated

Deliminators: " : ", ", ", " ", ",", ""

Example:

From This

a	b
c	d

<tbody>
</tbody>

To This

a : b : c : d

<tbody>
</tbody>

Or

a, b, c, d

<tbody>
</tbody>

Or

a b c d

<tbody>
</tbody>

Or

a,b,c,d

<tbody>
</tbody>

Or This

abcd

<tbody>
</tbody>

 

[Fluff]

How about

Sub ConcatDelim()
   Dim Delim As String
   Dim Tmp As String
   Dim Cl As Range
   
   Delim = InputBox("Please enter deliminator")
   For Each Cl In Range("A1:B2")
      If Len(Tmp) = 0 Then
         Tmp = Cl.Value
      Else
         Tmp = Tmp & Delim & Cl.Value
      End If
   Next Cl
   Range("A1").Value = Tmp
End Sub

 

[decadence]

Hi Fluff, This is Perfect as always. Thank you

 

[Fluff]

Glad to help & thanks for the feedback