Concanate problem

[PANKAJUTEKAR]

All Experts,
Hi..

j = col B

Function concatenate()
Dim i As Integer, j As Integer
Do Until j = 18
i = 2.................rowindex
j = 3.................colindex
Cells(i, j) = Cells(3, 2)........range("b3")
ActiveCell.FormulaR1C1 = "=concatenate(""P-"",cell(3,2))"
j = j + 1
Loop
End Function

Private Sub Workbook_Open()
Call concatenate
End Sub

Wht i tryed, in my col A is blank.
col b contains some tags like -
01H001A-M01
01H001A-M02
01H001A-M03 and more.

i got an error 1004...for -
ActiveCell.FormulaR1C1 = "=concatenate(""P-"",cell(3,2))"

So, how do i concatenate P- with respective cells automatically?

 

[PANKAJUTEKAR]

ok
=====

this is not working but,
its done ... b3
it should come down but coming doen for next value...\
let me check once.

 

[PANKAJUTEKAR]

Sektor Sir,

its not giving me any error....
value is not displaying