Another method

With ActiveCell
.Value = Chr$(34) & .Value & Chr$(34)
End With


--

http://www.vba.com.tw/plog/


"Norman Jones" wrote:

Hi Kara,

Try:
'=========
Public Sub AAA()
With ActiveCell
.Value = """" & .Value & """"
End With
End Sub

'<<=========

---
Regards,
Norman



"Kara" wrote in message
...
Does anyone know of a macro that will insert quotes around contents of a
cell?

Thanks,
Kara Peterson