v = Array("A2","B3","A5","B6", . . . remaining addresses)
For i = 2 To lastrow Step 14
set rng1 = .Range("a" & i).Resize(14, 1)
j = lbound(v)
for each cell in rng1
ws2.Range(v(j)).Value = cell.Value
j = j + 1
next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i

adjust your printarea command to accomodate the labels.

--
Regards,
Tom Ogilvy


"Crowbar via OfficeKB.com" <u15117@uwe wrote in message
news:5a0c832301135@uwe...
Bob Phillips wrote:
Do you mean the second 14 rather than the first?


Hi Bob

Sheet 2 is a template for warehouse location labels (14 per page), label 1
might be cell A2 and label 2 might be cell B3 etc

You enter the labels required in column A on sheet 1

The program loops through sheet 1's coulmn A pasting the first fourteen
entries into the require cells on sheet 2 and then prints

Then it does the next fourteen etc

At the moment the script I have doesn't do this

Do you know what I mean?

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