toms rašė:
> taip escape'inant gaunasi taip:
>
> ThisWorkbook.Names("Projektas").Value = "'" & lBCC.List(l, 1) & "'"
> print ThisWorkbook.Names("Projektas").Value
> ="'--'"
> print ThisWorkbook.Names("Projektas").Value = "--"
> False

Logiška. Nes ="'--'" nelygu -- (jau galutiniai string'ai, be kabučių)

>
> Zodziu i stringa itraukia ir viengubas kabutes :(

Tai matyt apskritai neįmanoma. Naudok 'null' ar 'none' ar pan. prasminį 
žodelį vietoje '--'. Arba escape'ink visas reikšmes, kurios yra pačios 
savaime (nėra formulės, kintamieji), pradėdamas tokią reikšmę vienguba 
kabute "'":

ThisWorkbook.Names("Projektas").Value = "'" & lBCC.List(l, 1)