Columna con mombre de hojas

Utiliza este codigo

Dim Fila As Long
Dim FilaJ, FilaK As Long

FilaJ = 3: FilaK = 3

For Fila = 1 To Sheets.Count
If Left(Sheets(Fila).Name, 3) = "REC" Or Left(Sheets(Fila).Name, 3) = "GAS"
Then
Sheets("Hoja1").Range("K" & FilaK) = Sheets(Fila).Name
FilaK = FilaK + 1
End If
If Left(Sheets(Fila).Name, 3) = "PEN" Then
Sheets("Hoja1").Range("J" & FilaJ) = Sheets(Fila).Name
FilaJ = FilaJ + 1
End If
Next Fila


Luis Medina
Menufazt - Utilidades y juegos en Excel
http://www11.brinkster.com/LUISM0/


"Lucas D." escribió en el mensaje
news:098101c4bf40$e374c7b0$

Hola Amigos del Foro:
Tengo en un libro varias hojas , quiero hacer lo siguiente
en la hoja1:
Llenar la columna K desde K3 con los nombres de las hojas
que empiecen con REC.. y GAS
y la columna J desde J3 con los que empiecen PEN.
Muchas Gracias por tratar de ayudarme.
Lucas D.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.783 / Virus Database: 529 - Release Date: 10/25/2004