I would not use macros for this but rather create a helper column and
concatenate the text in the target cell with the tilde.

Example: =concatenate(A1,"~")

Run the formula down as you need it, then copy the helper column and paste
its values over column A then delete the helper column.

Dave
--
Brevity is the soul of wit.


"tevid" wrote:

Say I have 5000 cells in a row that i need to add a symbol into, in
this case ~. I have come up with a macro that will let me do it for
one cell at a time, but i need to do it for all of them at once.

Here is what i have so far:

Sub Tester8()
ActiveCell.FormulaR1C1 = Chr(126)
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Symbol"
.FontStyle = "Regular"
.Size = 9
End With
End Sub

say i have c52 selected, when i run the macro it inserts the ~ as
expected but it also removes all text that was previously in the box.

Any ideas how i go about adding the symbol to all rows at once while
still preserving the text?