Hi,

I am a newbie in VB and I was trying to code a funtion in it where it
concatinates all the elements in a row in 'sheetx' and make it into one
string and paste it into a row of 'sheety'.
Thus my code reads...

Sub Convert_Map_to_Text()

Dim sMap As String

For i = 5 To 24
For j = 2 To 80

sMap = sMap + Worksheets("Sheet3").Cells(i, j)
Next j

Worksheets("Sheet4").cell(i - 4, 1) = sMap
Next i


End Sub
--------------------

But I got the following error.

type run error 13
type Mismatch

Can some one point out why this is happening, and if possible a
solution for the same?

Thank you very much in advance.

Regards,
Praveen.