VBA Tip: Generate Random Codes

Sometimes it's useful to be able to generate a random code (reference number, password, text, etc.) using a macro.

Here is a code to generate a random code of 10 characters:

Sub randomCode()

    'www.excel-pratique.com/en/vba_tricks/generate-code-randomly
    Randomize
 
    charList = "ABCD1234"
    codeGen = ""
 
    For i = 1 To 10 '10 = code length
        randomNumber = Int(Len(charList) * Rnd) + 1
        codeGen = codeGen & Mid(charList, randomNumber, 1)
    Next
 
    MsgBox codeGen
    
End Sub