how to modified this code
the code work fine to make label address with easy but i want to adding text in front label like this
"To. Mr/Mrs."
Code: Select all
Sub labels()
Dim i As Long, j As Long, myrow As Long, mycol As Long
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
mycol = (i - 2) \ 14
myrow = 5 * (i - 2) - 14 * 5 * mycol + 2
For j = 0 To 3
Cells(myrow + j, mycol + 6) = Cells(i, j + 1)
Next j
Cells(myrow, mycol + 6).Resize(4, 1).BorderAround ColorIndex:=1, Weight:=xlMedium
Next i
Application.ScreenUpdating = True
End Sub
John Mc Donald
Street #43
Michigan
i want to after modified
To. Mr John Mc Donald
Street #43
Michigan
anyone help, thank in advance
susant