looping to create multiple files

[jrh]

I got this to work but then in order to change the list of
rep names, the person would have to go into the code. How
can I set the array to be cells on a particular
spreadsheet?

Thank you.

 

[pancho]

You save time if you ask completely for the first time,

you can use something like:
Dim list As Variant, i
list = ActiveSheet.Range(Range("A1"), _
Range("A1").End(xlDown)).Value
For i = 1 To UBound(list)
MsgBox list(i, 1)
Next i



Francisco Mariscal
fcomariscal at hotmail dot com