Generate random number of strings that are stored in an array .

[JKwan]

give this a go

Sub GenRandomStrings()
    Const NumberOfLettersPerString As Long = 4
    Const HowManyWords As Long = 10
    Dim NumberOfTimes As Long
    Dim RandowString As String
    
    For i = 1 To HowManyWords
        For NumberOfTimes = 1 To NumberOfLettersPerString
            RandowString = RandowString & GetLetter
        Next NumberOfTimes
        Cells(i, "A") = RandowString
        RandowString = ""
    Next i
End Sub
Function GetLetter() As String
    Dim bOK As Boolean
    Dim a As Double
    
    bOK = False
    Do
        Randomize
        a = Int((122 * Rnd) + 1)
        Select Case a
            Case 65 To 90, 97 To 122
                GetLetter = Chr(a)
                bOK = True
        End Select
    Loop Until bOK
End Function