Thanks, very nice function. Saved for future use. Thanks again

On Feb 7, 12:37 am, "NickHK" wrote:
Jerry,
Maybe you can adapt this:

Public Function InsertChars(argWord As String, CharsToInsert As String,
ParamArray AtPositions() As Variant) As String
Dim i As Long
Dim Temp As String
Dim LastPos As Long

LastPos = 1
For i = LBound(AtPositions) To UBound(AtPositions)
Temp = Temp & Mid(argWord, LastPos, AtPositions(i) - LastPos) &
CharsToInsert
LastPos = AtPositions(i)
Next

InsertChars = Temp & Right(argWord, Len(argWord) -
AtPositions(UBound(AtPositions)) + 1)
End Function

And call it with
=InsertChars("LongWordNeedsCharsInserted","@",5,9, 14,19)

Long@Word@Needs@Chars@Inserted

NickHK

"Jerry" wrote in message

ups.com...



On Feb 6, 10:20 pm, "okrob" wrote:
On Feb 6, 9:03 pm, "Jerry" wrote:

I have a group of cells filled with words in excel. I need to put a
space after the 3rd charactor in each word. How can i do it using VBA?
thanks

Does each cell you want 'fixed' contain only one word, or are there
multiple words in each cell that you want fixed.

i simplified my problem. Each cell contains fixed length word. I need
to insert spaces into couple of places (fixed positions)- Hide quoted text -

- Show quoted text -