Dividir una hoja en varias hojas

Hola Tony,

Prueba la siguiente macro, como no especificaste exactamente donde querías
copiarlas, las copia una detrás de otra.

Un saludo,
Juan

Inicio código

Sub CopiaColumnas()
Dim mirango As Range
Dim col As Range
Dim NuevaHoja As Worksheet
Dim i As Integer

Set mirango = Selection

Worksheets.Add
i = 0
For Each col In mirango.Columns
col.Copy ActiveSheet.Range("A1").Offset(, i)
i = i + 1
Next col

End Sub

Fin código

"Tony" escribió

Hola de nuevo:

¿Hay alguna forma automática para dividir una hoja en varias hojas?... Se
trata que pueda seleccionar las columnas que yo quiera y ponerlas en una
hoja
nueva... ¿Existe alguna macro o función que pueda usar?...

Gracias de nuevo.