Copiar hoja sin objetos

[Antoni]

Hola:

Como copiar una hoja sobre otra sin copiar los objetos que haya en ella.

Sub NoCopiarObjetosAlCopiarHoja()    


    Application.CopyObjectsWithCells = False

    Hoja1.Cells.Copy Hoja2.Range("A1")

    Application.CopyObjectsWithCells = True


End Sub



[/CODE]

Vale mas esto que nada. :glee: