Get all cell properties

[Ramachandran]

I have a table that I sort in a specific matter then "paste" it sorted just below the unsorted one.

...
for i = 1 to lastRow[INDENT]for j = 1 to 10
[/INDENT]
[INDENT=2]Set oldCell = Cells(sortedArr(i), j)
[/INDENT]
                Cells(i + lastRow, j) = oldCell[INDENT]next j[/INDENT]
next i

This works fine, but only transfers the .value from the old cell.
Say if I wanted to get some additional property, like the font size, I could do:

Cells(i + lastRow, j).font.size = oldCell.font.size

I would like the new cell to have all properties of the old cell, like it's color, borders, formatting, et cetera.
Is there some magic word, like say cell.EntireContent, that I can use?

 

[shg]

oldcell.copy
newcell.pastespecial paste:=xlpasteformats

 

[Ramachandran]

Thanks, that did the job just fine!
However it was a bit ineffective.

I ended up making a custom copy routine where I added all the properties I needed. That took nearly half the time.

Private Sub cellProps(newCell As Range, oldCell As Range)
[INDENT]newCell.Value = oldCell.Value
newCell.NumberFormat = oldCell.NumberFormat
newCell.Interior.Color = oldCell.Interior.Color
newCell.HorizontalAlignment = oldCell.HorizontalAlignment
newCell.VerticalAlignment = oldCell.VerticalAlignment
newCell.Borders.Weight = oldCell.Borders.Weight
newCell.Borders.LineStyle = oldCell.Borders.LineStyle
newCell.Font.Name = oldCell.Font.Name
newCell.Font.Color = oldCell.Font.Color
newCell.Font.Size = oldCell.Font.Size
newCell.Font.Bold = oldCell.Font.Bold
[/INDENT]
 End Sub

...
for i = 1 to lastRow
[INDENT]for j = 1 to 10
[/INDENT]
[INDENT=2]call cellProps(Cells(i + lastRow, j), Cells(sortedArr(i), j))     
[/INDENT]
[INDENT] next j
[/INDENT]
 next i