pessoal, podem me ajudar em descobrir o que está errado com o código abaixo? dá "Run-time error 13 , Type mismatch"

line90 = "<txtObser>regularização conta 218913601 - recolhimento de servidores ativos para a ug 109" & _
Worksheets("cedidos").Range("B31:D31") & Worksheets("cedidos").Range("B35:D35") _
& Worksheets("cedidos").Range("B36:D36") & "</txtObser>"

acima eh exatamente como esta escrito, se eu colocar code, o simbolo de concatenacao & aparece certo, mas fica menos espaço e corta em ug em vez de cortar em 109"

line90 = "<txtObser>regularização conta 218913601 - recolhimento de servidores ativos para a ug 109" & _
    Worksheets("cedidos").Range("B31:D31") & Worksheets("cedidos").Range("B35:D35") _
    & Worksheets("cedidos").Range("B36:D36") & "</txtObser>"