Insert Quatation Mark "

[gloriel7]

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

 

[Geeves]

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

 

[David Adamson]

Sorry didn't check what I posted until I got to work you can get rid of that
newName bit as it does nothing

----------------
Dim start As String
Dim label As String
Dim i As Integer

For i = 1 To 10 ' change this bit on where you want the change to occur
(i.e define your range to your needs)

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

Next i

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