Jak wstawić podwójne lub pojedyncze Cytaty

Mam długą listę nazwisk, które muszę mieć wokół cudzysłowów (mogą to być podwójne lub pojedyncze cytaty) i mam ich około 8000. Mam je w Excelu bez żadnych cytatów i mogę skopiować wszystkie nazwy i wkleić je bez problemu, ale nadal nie ma cytatów. Szukałem i szukałem formuły Excel, aby dodać cytaty do nazwy w każdym wierszu, ale nie miałem szczęścia. Próbowałem też sprytnych technik znalezienia i zastąpienia, ale też nie zadziałało. Format, którego szukam to to:

"Allen" lub "Allen"

PS:

Znalazłem w sieci inne osoby, które potrzebują tego samego, co ja i to rozwiązanie zadziałało na nich, ale nie wiem co z tym zrobić:

Można to naprawić za pomocą zakresu zmienną (np. myCell), a następnie użyj tego do iteracji "wyboru" kolekcja obiektów range, jak TAK

Sub AddQuote()
Dim myCell As Range
    For Each myCell In Selection
        If myCell.Value <> "" Then
            myCell.Value = Chr(34) & myCell.Value
        End If
    Next myCell
End Sub

Innym rozwiązaniem, które również działało dla innych było:

Sub OneUglyExport()

Dim FileToSave, c As Range, OneBigOleString As String

FileToSave = Application.GetSaveAsFilename

Open FileToSave For Output As #1

For Each c In Selection

If Len(c.Text) <> 0 Then _

    OneBigOleString = OneBigOleString & ", " & Chr(34) & Trim(c.Text) & Chr(34)

Next

Print #1, Mid(OneBigOleString, 3, Len(OneBigOleString))

Close #1

End Sub