Enter this small macro:

Sub quoteit()
Dim r As Range
For Each r In Selection
If IsEmpty(r.Value) Then
Else
r.Value = Chr(34) & r.Value & Chr(34)
End If
Next
End Sub

Select all or some portion of the worksheet and run the macro. It will put
quote marks before and after the contents of all selected non-empty cells
--
Gary's Student


"confused" wrote:

Hi!

I have a co-worker who needs to insert quotation marks in the entire
worksheet. It contains both numbers and text. The quotation marks need to
be inserted around each individual cells data.

Can someone help?