Copy what the macro recorder throws up:
Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range("$A$1:$A$100"), 1, 100, 5, , 2