Desmembrado do tópico:

viewtopic.php?f=20&t=3305

[]s

Patropi - Moderador

Uma adaptação possível ao código do alexandre seria:

Sub RandomPassword()

Dim strPassword As String
Dim i           As Long
Dim j           As Long
     
For j = 1 To 65000
    strPassword = ""
    For i = 1 To 8
        If i Mod 2 = 0 Then
            strPassword = Chr(Int((90 - 65 + 1) * Rnd + 65)) & strPassword
        Else
            strPassword = Int((9 * Rnd) + 1) & strPassword
        End If
    Next i
Cells(j, 1).Value2 = strPassword
Next j

End Sub

Que show!!!

gtsalikis agradeço muito sua atenção.

Abraço.