文字列をランダムで表示したい

●テストデータを作成するとき
　1)数値をランダムで入力したい場合はRANDBETWEEN関数を使います。
　2)文字列をランダムで入力したい場合は以下のマクロを作成します。

Sub str_randam()
　Dim myData(1 To 6) As String
  Dim moji As Range

  myData(1) = "a"
  myData(2) = "b"
  myData(3) = "c"
  myData(4) = "d"
  myData(5) = "e"
   myData(6) = "f"
 
  Randomize

  For Each moji In Selection
    moji.Value = myData(Int((Rnd * 6) + 1))
  Next

End Sub

ランダムで入力したいセルを範囲指定後、上記マクロを実行します。