Dim wds As Variant
'Place "A1" into array Wds
wds = Split(Range("a1"), " ")
'Enter array on Row 2
Range("A2").Resize(, UBound(wds) + 1) = wds
'Join Array and place in "A3"
Range("A3") = Join(wds, " ")
'Or perhaps this
Range("A4") = """" & Replace(Range("A1"), " ", """,""") & """"
Perhaps:-
Rich (BB code):Dim wds As Variant 'Place "A1" into array Wds wds = Split(Range("a1"), " ") 'Enter array on Row 2 Range("A2").Resize(, UBound(wds) + 1) = wds 'Join Array and place in "A3" Range("A3") = Join(wds, " ") 'Or perhaps this Range("A4") = """" & Replace(Range("A1"), " ", """,""") & """"
Try:-
Code:=""""&SUBSTITUTE(A1," ",""",""")&""""