文字数を指定して0-9,A-Zまでのランダムな文字列を生成するマクロです。
別の処理で使う予定だったのですが、結局使う機会が無くなってしまったのでメモとして残しておきます。

Option Explicit

Public Sub Sample()
  Debug.Print MakeRndStr(100)
End Sub

Private Function MakeRndStr(ByVal LenNum As Long) As String
'0-9,A-Zまでのランダムな文字列を生成
  Dim ret As String
  Dim num As Integer
  
  ret = "" '初期化
  Do
    num = RndScope(48, 90)
    Select Case num
      Case 58 To 64
      Case Else
        ret = ret & ChrW(num)
    End Select
  Loop Until Len(ret) >= LenNum
  MakeRndStr = ret
End Function

Private Function RndScope(ByVal MinNum As Long, MaxNum As Long) As Integer
'指定した範囲の乱数を生成
  Dim ret As Integer
  
  Randomize
  ret = Int(Rnd() * (MaxNum - MinNum + 1) + MinNum)
  RndScope = ret
End Function