Я знаком с VB.NET, но VBA в Excel меня озадачил. С моей лучшей попыткой я получаю ошибку «Несоответствие типов»:
Sub AddQuotes() For Each x In Range("List").Cells x.Text = "*" * " & x.text & " & "*" Next End Sub
Попробуйте использовать chr (34) для символа двойной кавычки
например, chr (34) и x.text & chr (34)