Fórmula de Excel

Te paso una función definida por el usuario, si tenés problemas avisame pero los 2 parámetros de la función serían: de cuantos caracteres la querés (por lo que veo de tu ejemplo también es variable por lo que tal vez debas meterle un random acá adentro) y el segundo parámetro es si tiene que empezar por letra o puede ser cualquier cosa (por tu ejemplo podría ser cualquier cosa por lo que deberías ponerlo en Falso)
Si se te complica avisá
Saludos
Gfellay
Function cifrasAleatorias(N As Long, iniciaLetra As Boolean) As String
'N: el tamaño de la cantidad de cifras aleatorioas devueltas
'inicioLetra: para saber si empieza en letra o libre (número o letra)
Dim it As Long, limite As Long, sAux As String
Dim valoresPosibles() As String, infMat As Integer, supMat As Integer
valoresPosibles = Split("0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,Ñ,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")
infMat = LBound(valoresPosibles)
supMat = UBound(valoresPosibles)
sAux = ""
limite = N
If N < 1 Then Exit Function
If iniciaLetra Then
sAux = valoresPosibles(Int(Rnd() * (supMat + 1 - infMat) + infMat + 10))
limite = limite - 1
End If
For it = 1 To limite
sAux = sAux & valoresPosibles(Int(Rnd() * (supMat + 1 - infMat) + infMat))
Next it
cifrasAleatorias = sAux
End Function

Me funcionó excelente la función, solo quería hacerte una ultima pregunta, ¿cómo puedo esta función incluirla en el excel? Es decir siempre tenerla disponible, no importa la hoja que abra
De antemano te agradezco por la atención mi querido amigo