Try this macro:

Sub AddSlash()

Dim cell As Range
For Each cell In Selection
If cell.Value < "" Then
cell.Value = cell.Value & "/"
Else: cell.Value = cell.Value
End If

Next cell

End Sub

Select the range in question and run the macro.

Biff

"Tom" wrote in message
oups.com...
Hello,
Need help adding a charicter to the end of contents in the cell
without overwriting the cell contents. Example - Cell has "81234/12"
and I want to add another "/" after "12" so it reads "81234/12/". I
have done this before but have forgotten - was thinking that I used
the find and replace function?

Thanks,
Tom