T
tom taol
i want to do using recursive method. but error.
Sub f_recursive_ex(k As Long)
If k = 10000 Then Exit Sub
ActiveCell.Value = k
k = k + 1
Call f_recursive_ex(k)
End Sub
Sub recursi()
Call f_recursive_ex(1)
End Sub
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
Sub f_recursive_ex(k As Long)
If k = 10000 Then Exit Sub
ActiveCell.Value = k
k = k + 1
Call f_recursive_ex(k)
End Sub
Sub recursi()
Call f_recursive_ex(1)
End Sub
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!