Stuck. I need some VBA code to insert double-quotes around strings in each cell in an excel range.

Question

I'm familiar with VB.NET, but VBA in excel has me stumped. With my best attempt, I get a "Type mismatch" error:

Sub AddQuotes()

For Each x In Range("List").Cells x.Text = "*" * " & x.text & " & "*" Next

End Sub

Answer 1

Try using chr(34) for the double-quote character

eg chr(34) & x.text & chr(34)