Faster alternative to randomize
Code:Sub M_snb()
Dim sn(28 * 10 ^ 4, 0)
Randomize
For j = 1 To UBound(sn)
sn(j, 0) = Mid(Join(Array(Chr(65 + Int(25 * Rnd)), Chr(65 + (25 * Rnd)), Chr(65 + Int(26 * Rnd)), CLng(10 ^ 5 * Rnd)), ""), 1 + Int(3 * Rnd))
Next
Sheet1.Cells(1, 4).Resize(UBound(sn) + 1) = sn
End Sub