adding Inverted Commas

[Colleen45]

How would I for each cell add inverted commas to the begging and end of what ever is in each cell, apart from manually typing it all in?

 

[VoG]

Hi. Try selecting the range then running

Sub AddIC()
Dim c As Range
For Each c In Selection
    c.Value = Chr(34) & c.Value & Chr(34)
Next c
End Sub

 

[Colleen45]

Thanks Peter, Works like a dream

Blessings