for i = 1 to range("a1").value step 1
Application.Run "'Data 10-25-03.xls'!NEWADDLOAD
next i
or
for i = 1 to activecell.value step 1
Application.Run "'Data 10-25-03.xls'!NEWADDLOAD
next i
------------------------------------------------
~~ Message posted from
http://www.ExcelTip.com/
~~View and post usenet messages directly from
http://www.ExcelForum.com/