Letra aleatoria en Excel

=CARACTER(ALEATORIO.ENTRE(65;90))

Colorear código para ponerlo en la web

Esta dirección es de gran utilidad y trae muchos lenguajes:

http://www.scourdesign.com/articulos/tutoriales/colorear/index.php

Desordenar una columna de valores en Excel

Sub Desordenar()
    Dim rango As Range
 
    Set rango = Selection.Cells
       
    For i = 1 To rango.Rows.Count
        Dim aleatorio As Integer
        Dim cadena As String
        rango.Rows(i).Select
        cadena = ActiveCell.FormulaR1C1
        
       
        aleatorio = Int(Rnd() * rango.Rows.Count) + 1
        rango.Rows(i).FormulaR1C1 = rango.Rows_
(aleatorio).FormulaR1C1
        rango.Cells(aleatorio).FormulaR1C1 = cadena
    Next
End Sub 

Ejecutar varios programas al mismo tiempo en VBS

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "Ruta1" & Chr(34), 0
WshShell.Run chr(34) & "Ruta2" & Chr(34), 0
WshShell.Run chr(34) & "Ruta3" & Chr(34), 0

Crear muchas carpetas en vbs

'Crea las carpetas desde Equipo1 a Equipo100
'El archivo se guarda con extensión vbs y adelante.
Dim fso, fldr, i
Set fso = CreateObject("Scripting.FileSystemObject")
for i=1 to 100
    Set fldr = fso.CreateFolder("Equipo" & i)
next