Counter stops at 6

[Guest]

Hi,

I have creeated a custom task form that populates a variable number of
fields from an excel sheet.

I have fields on the form labeled PO1; PO2; PO3; etc. and I use a counter
to identify the next field to populate. (seen below)

Do While cust1 = ActiveSheet.Cells(row1 + 6, 3) And prod1 =
ActiveSheet.Cells(row1 + 6, 6)
row1 = row1 + 6
counter = counter + 1

.UserProperties("PO Number" & counter).Value = ActiveSheet.Cells(row1, 2)
.UserProperties("QTY" & counter).Value = ActiveSheet.Cells(row1, 10)
MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("PO Number"
& counter).Visible = True
MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("QTY" &
counter).Visible = True
Loop

My fileds are named correctly; my row counting is correct; and the counter
works from PO1 to PO5. However, the macro hits an error on PO6 and stops.

Any ideas why it stops at 6?

THank you.

 

[Michael Bauer [MVP - Outlook]]

What does the error message say?

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Quick-Cats - The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?productid=300120654&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Tue, 20 Mar 2007 07:43:05 -0700 schrieb greg:

 

[Guest]

I recieve the error message:
"Run-time error '91':
Object variable or With block variable not set"

I hit this error on the sixth time through the loop on the

..UserProperties("PO Number"..........line.