works perfect. Thank you!

JBeaucaire wrote:
Try this:

==========
Sub MakeLabels()
Dim LR As Long, i As Long, NR As Long
Dim ws As Worksheet
LR = Range("A" & Rows.Count).End(xlUp).Row
NR = 1
Set ws = Sheets("Labels")

For i = 3 To LR
ws.Range("A" & NR) = Cells(i, "A")
ws.Range("C" & NR) = Cells(i, "B")
ws.Range("D" & NR) = Cells(i, "C")
ws.Range("A" & NR, "B" & NR + 5).MergeCells = True
NR = NR + 6
Next i

End Sub
=============

I have a sheet formatted as follows:
A B C
[quoted text clipped - 16 lines]

Any help is greatly appreciated. Thanks

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200910/1