Thanks (and thanks Stephi), this worked but now I get an error on the paste -
says range is too large...
How can I get around this? My spreadsheet has 22939 rows.


"Kassie" wrote:

Rows("2:2").copy
Rows("3:"&nRows).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:= False

--
kassie

never stop learning




"Meltad" wrote in message
...
Hi
I'm trying to copy row 2 and copy the formats down the sheet to the last
row
(I have already defined nRows). I'm having trouble selecting the nRows to
paste into...

Rows("2:2").Select
Selection.Copy
Rows("3:3 & nRows").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False