Máximos colaboradores

Buenas noches Estimados En esta oportunidad les dejo a su alcance un código para separar una cadena de texto o números que este pegados, insertando el símbolo (-) Ejemplo: Cadena original : aaaaaaaaa Cadena resultante : aaa-aaa-aaa Se puede crear una lista de cadenas bien sea texto o números o los dos a la vez. Siempre que estén pegados. Igualmente funciona si está separado pero la idea es aplicarlo según sea el caso. La idea es, ademas de conocerla es obtener otra alternativa cuando querramos hacerlo por medio de VBA y no bajo formatos personalizados. Una vez intenté hacerlo por medio del formato personalizado pero no funcionaba con letras y números. si alguien conocer de un mejor modo, estaré muy atento a su comentario. P.D. Funciona cada tres letras, si gustan pueden cambiar a cuatro concatenando el código : & Mid(.Cells(Lin, 1), (I + 3), 1) 'Y el Step lo incrementan a 4 Mis respetos para todos.