Сайтоассорти Кравченко СВ

следующий макрос просто меня осчастливил

он меняет парные кавычки "" на галочки <<>>

Sub Karssen()
Dim c As Range, i As Long, s As String, rl As Boolean
  Set c = Cells.Find("""", , xlValues, xlPart)
  Do While Not c Is Nothing
    s = c
    i = 0
    rl = False
    Do
      i = InStr(i + 1, s, """")
      If i = 0 Then Exit Do
      Mid$(s, i) = IIf(rl, Chr(187), Chr(171))
      rl = Not rl
    Loop
    c = s
    Set c = Cells.FindNext(c)
  Loop
End Sub

работает классно