Hello al007,

Here's how...

Code
-------------------

Sub Test()

Dim Rng As Range

Set Rng = Application.Selection

For Each Cell In Rng
Cell.Value = "'" & Cell.Value
Next Cell

End Sub

-------------------


Sincerely,
Leith Ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=49537