That worked Kieran. Thank you for the advice.

Frank

"Kieran " wrote in message
...
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 need
to further qualify the sheets() reference like this
workbook.sheets(n).etc


---
Message posted from http://www.ExcelForum.com/