09-29-2011, 04:28 PM
Hi Friend,
hope this will help for you, try this and let me know if it not works
******************************************************
******************************************************
Thanks & Regards,
G@veyom
hope this will help for you, try this and let me know if it not works
******************************************************
Code:
MsgBox RandomString
Function RandomString
Dim str
Const LETTERS = "abcdefghijklmnopqrstuvwxyz0123456789"
For i = 1 to len(LETTERS)
str = str & Mid( LETTERS, RandomNumber( 1, Len( LETTERS ) ), 1 )
Next
RandomString = str
DataTable.Value("rndstr", dtGlobalSheet) = str
End Function
******************************************************
Thanks & Regards,
G@veyom