My code has these 3 lines to swap rows.

Rows(120).Value = Rows(z).Value

Rows(z).Value = Rows(x).Value

Rows(x).Value = Rows(120).Value

Is this the only way to do it?

Also, the formulas are destroyed when using this, and

I need to retain them.

Thanx ahead,
Greg Carter

Hi Greg,

Try this

Rows(120).Copy
Rows(z).PasteSpecial Paste:=xlAll
Application.CutCopyMode = False


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"greg carter" wrote in message
...
My code has these 3 lines to swap rows.

Rows(120).Value = Rows(z).Value

Rows(z).Value = Rows(x).Value

Rows(x).Value = Rows(120).Value

Is this the only way to do it?

Also, the formulas are destroyed when using this, and

I need to retain them.

Thanx ahead,
Greg Carter