MsgBox "This function has already been performed", vbExclamation, RandTitleFunction RandTitle() As String Static avsTitle As Variant If IsEmpty(avsTitle) Then avsTitle = Split("Darn,Drat,EGAD!,Holy Cow!,Shoot!,Not so fast!,Oops!,Slow down!,That won't work", ",") RandTitle = avsTitle(Int(Rnd() * UBound(avsTitle) + 1)) End Function
Entia non sunt multiplicanda sine necessitate
Thanks @shg! I had an idea in my mind, but wasn't sure how to actually make this work. I haven't really played with Functions before.
Your code seems to work great, however... I put my own title words in the split (14 total so far) and tested this out for 5 solid minutes. All words showed up on my msgboxes, except the first word in the list. To experiment, I changed the + 1 at the end of the code to a + 0 to see what would happen, and with a second test, all words showed up except the last word in the list now. So was wondering what that + 1 (or +0) actually does and if there's a way to reassure all words in my list will appear at some point?
Thanks again for your help!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks