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)