Frank & Pam
Try this amendment
Sub GenRandomNumbers()
Application.Run "ATPVBAEN.XLA!Random", Sheets(2).Range("$a$15"), 1, 99
7, , Sheet(1).Range("MyRange")
End Sub
This assumes that the active workbook will be used.
If you want to reference other than the active workbook you will nee
to further qualify the sheets() reference like thi
workbook.sheets(n).et
--
Message posted from
http://www.ExcelForum.com