Okay - all it contains is the following VBA function:
--------------------------------
Public Function RandomKey(Length As Integer)
Dim i As Integer
RandomKey = ""
For i = 1 To Length
RandomKey = RandomKey & Chr(Int((122 - 49) * Rnd + 48))
Next i
End Function
--------------------------------
Then you can use the function "=randomkey(40)" in a worksheet to generate a
random 40 character key.
--
Olly
"Peter Crosland" <(E-Mail Removed)> wrote in message
news:zuk1c.14676$(E-Mail Removed)...
> > Try this: http://www.ollynet.com/RandomKeyGen.xls
> >
> > --
> > Olly
>
> I appreciate the offer Olly but will decline since I have no way of
knowing
> if the file is authentic or not.
>