Code:Dim vItems As Variant, vItem As Variant Dim i As Long With ActiveCell vItems = Split(.Value, ",") For i = LBound(vItems) To UBound(vItems) vItems(i) = Trim(vItems(i)) If InStr(vItems(i), " ") > 0 Then vItems(i) = Chr(34) & vItems(i) & Chr(34) End If Next i .Value = Join(vItems, ",") End With
Bookmarks