Hi Praveen,

The following worked for me

Sub Convert_Map_to_Text()

Dim sMap As String
Dim i As Long, j As Long

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

sMap = sMap + _
CStr(ActiveSheet.Cells(i, j).Value)
Next j
Worksheets("Sheet4").Cells(i, 1).Value = sMap
Next i

End Sub

---
Regards,
Norman



"Praveen" wrote in message
oups.com...
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.