Нужно слова, выделенные курсивом и с шрифтом Arial, заключить в кавычки - VBA

Sub format2quote()
Dim i&, flag As Boolean, d$, c As Range
For Each c In Selection
    d = "": flag = False
    For i = 1 To c.Characters.Count
        With c.Characters(i, 1)
            If .Font.Name Like "Arial*" And .Font.Italic Xor flag Then
                d = d & """"
                flag = Not flag
            End If
            d = d & .Text
        End With
    Next
    If flag Then d = d & """"
    c.Value = d
    c.Style = "Normal"
Next
End Sub