How to call another function

[scottian]

Still trying to get to this Attachmate stuff. How do i call another function? Ive written the below code, but it
it doesnt work. Any help is appreciate


Sub RandomizeNum()
randomize
randnum% = int(100*rnd)+1
MyPause = ltrim$(str$(randnum%))
End Sub

Sub Main()
Dim appExcel As Object
Dim wbExcel As Object
Dim aSheet As Object
Dim MyPause#

Set AppExcel = CreateObject("Excel.Application")
Set wbExcel = AppExcel.WorkBooks.Open("R:\Tester.xls")
Set aSheet = wbExcel.Sheets("Sheet1")

For x = 2 to aSheet.UsedRange.Rows.Count

Call RandomizeNum

CurrMPRN = aSheet.Cells(x,1).text

Call RandomizeNum

Next

appExcel.Quit
End Sub

"Children are smarter than any of us. Know how I know that? I don't know one child with a full time job and children."...Bill Hicks

 

[scottian]

Never Ive sussed it.

"Children are smarter than any of us. Know how I know that? I don't know one child with a full time job and children."...Bill Hicks

 

[WinblowsME]

Before you get Excel involved, test out the random number function first.

Function Get_Random_Number() As Integer
   Randomize
   Get_Random_Number = Int(100 * Rnd) + 1
End Function

Sub Main()
   MsgBox Get_Random_Number
End Sub