Опять проблем. с Excel

[codemaster]

Доброе время суток

При записи в лист из формы возникает ошибка

Код: Выделить всё

With Worksheets("Document")
' строка работает отлично
.Range("DOCNUM").Value = Trim(Str(DocNum.Value))

'  возникает ошибка "несоответствие типов"
'  формат области  RECIPIENT (1 ячейка) - текст
.Range("RECIPIENT").Value = Trim$(Str(Recipient.Value))

End With


Собсвенно вопрос где грабли
Заранее спасибо за ответы

[Calvin]

попробуй так:

Код: Выделить всё

............
Range("RECIPIENT").Value = Trim$(Str( .Range("RECIPIENT").Value))
.............


[codemaster]

Вопрос снят
ошибка была в Str

Код: Выделить всё


.Range("RECIPIENT").Value = Trim$(СStr(Recipient.Value))



Всем спасибо!