try something like
Dim start As String
Dim newName As String
Dim label As String

Dim i As Integer


For i = 1 To 10

With Worksheets("trial")
start = .Range("a1").Offset(i, 0)
label = """"
newName = start
Range("a1").Offset(i, 0) = label & start & label

End With

Next i

"gloriel7" wrote in
message ...

How can i insert quotation mark ( " or "" )
in each cell. any macro?
i.e.
A-WALL becomes "A-WALL"
A-COLUMN becomes "A-COLUMN" :(


--
gloriel7
------------------------------------------------------------------------
gloriel7's Profile:
http://www.excelforum.com/member.php...o&userid=16379
View this thread: http://www.excelforum.com/showthread...hreadid=394779