Hi All,

I now have my spreadsheet working as I want it to, apart from one last niggling annoyance. The code below works fine to send the data to my template but it only applies the formatting to the first 2 iterations and I can't figure out why!

Anyone able to see the flaw?

'Loop through the item details and prices and pass them to the PO Form

Dim j As Integer

For j = 1 To 10

If PurchaseOrderForm.Controls("Item" & j & "Description").Caption <> "" Then

WS.Cells((16 + j), 1) = PurchaseOrderForm.Controls("Item" & j).Caption
WS.Cells((16 + j), 2) = PurchaseOrderForm.Controls("Item" & j & "Description").Caption
WS.Cells((16 + j), 8) = Format((PurchaseOrderForm.Controls("Price" & j).Caption), "#,###0.00")

End If

Next j