MACROS

Hola Luis,
Creo que el siguiente código te podría servir:

Sub Prueba()
Dim hoja As Worksheet
Dim i As Integer
Dim HojaActual As Worksheet
i = 1
Set HojaActual = ActiveSheet

Application.ScreenUpdating = False

For Each hoja In ThisWorkbook.Worksheets

hoja.Activate
If hoja.Name = "Hoja41" Then

Else
Cells(1, 1).Select
Selection.Copy
Hoja1.Activate
Hoja1.Select
Cells(i, 1).Select
ActiveSheet.Paste
End If
i = i + 1
Next hoja
HojaActual.Select

End Sub

Esto lo tienes que ejecutar desde la hoja donde quieres que se traspasen los
datos. En este caso yo la he llamado Hoja41, si no se llama asi cambia esto
por el nombre real, y la hoja donde se deben de traspasar los datos es la
hoja1, tambien lo deberas modificar. Si quieres una explicación de su
funcionamiento me lo dices y temando el módulo, no te lo he explicado aqui
porque te puede dar problemas el código al pasarlo a excel, ya sabes, lineas
que se cortan etc...

Por cierto el código se puede mejorar mucho, pero eso es cosa tuya o de
alguien mas capacitado. Son las nueve de la mañana y en lo único que pienso
es en un cafe.

Un saludo,
Adolfo

"Luis" escribió en el mensaje
news:04ee01c3498d$842a58d0$
Hola a todos-as.

Tengo un libro1 con 40 hojas y dentro de cada hoja la
casilla A1 que contiene un número. La tengo que copiar en
otro hoja del mismo libro. Se puede automatizar esto con
una macro? Pero sin que tenga que hacer las 39
operaciones manuales ?

Si alguien puede poner un ejemplo Gracias!

Un Saludo,

Luis.