Sub test()
Range("A2").Formula = "=LEN(SUBSTITUTE(A1,"" "",""""))"
MsgBox "There are " & Range("A2").Value & " letters in the cell"
End Sub
IMO, this is different enough and of course, your own question. I would respectfully suggest starting your own thread. Include the info you have already, as well as what column and the name of the sheet that the data to be changed/coerced if in.