'==========================================================================='
Public Sub Main()
'---------------------------------------------------------------------------'
    Dim Matrix_Passwords(), I&, J&: ReDim Matrix_Passwords(1 To 5, 1 To 2)
    
    Dim Inx_LB_1&: Inx_LB_1 = LBound(Matrix_Passwords, 1)
    Dim Inx_UB_1&: Inx_UB_1 = UBound(Matrix_Passwords, 1)
    Dim Inx_LB_2&: Inx_LB_2 = LBound(Matrix_Passwords, 2)
    Dim Inx_UB_2&: Inx_UB_2 = UBound(Matrix_Passwords, 2)
    
    For J = Inx_LB_2 To Inx_UB_2
        For I = Inx_LB_1 To Inx_UB_1
            Matrix_Passwords(I, J) = Password_Generator(10)
        Next I
    Next J
    
    With Application
        .ScreenUpdating = False
        Worksheets.Add.Range("A1").Resize(Inx_UB_1, Inx_UB_2) = _
                                                 Matrix_Passwords
        Columns("A:B").EntireColumn.AutoFit
        .ScreenUpdating = True
    End With
'---------------------------------------------------------------------------'
End Sub
'==========================================================================='

'=========================================================================='
Private Function Get_Template_Password_Generator()
'--------------------------------------------------------------------------'
    Get_Template_Password_Generator = Array( _
                        "a", "b", "c", "d", "e", "f", "g", "h", "i", _
                        "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", _
                        "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", _
                        "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", _
                        "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", _
                        "X", "Y", "Z", "1", "2", "3", "4", "5", "6", "7", _
                        "8", "9", "0")
'--------------------------------------------------------------------------'
End Function
'=========================================================================='

'============================================================='
Private Function Rand(ByVal Start&, ByVal Finish&) As Long
'-------------------------------------------------------------'
    Randomize: Rand = Int((Finish - Start + 1) * Rnd() + Start)
'-------------------------------------------------------------'
End Function
'============================================================='

'================================================================='
Private Function Password_Generator(ByVal Len_Password&) As String
'-----------------------------------------------------------------'
    Dim Vector_Characters(): Vector_Characters = _
                             Get_Template_Password_Generator
                             
    Dim Size_Vector&: Size_Vector = UBound(Vector_Characters)
   
    Dim tmp$, I&
   
    For I = 1 To Len_Password
        tmp = tmp & Vector_Characters(Rand(0, Size_Vector))
    Next I
   
    Password_Generator = tmp
'-----------------------------------------------------------------'
End Function
'================================================================='