Oops

To insert the rows use

WSNew.Range("A1:A4").EntireRow.Insert




--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" wrote in message ...
Hi

Try this

Above this line

WSNew.Columns.AutoFit

you can add this two lines

WSNew.Range("A1:C2").Copy WSNew.Range("D1")
WSNew.Columns("A:C").Delete


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ozzie via OfficeKB.com" <u18021@uwe wrote in message news:5bd376cf6668a@uwe...
Thanks Ron for your speedy reponse, the attached link works perfectly, and
I'm now using it,

one other thing though, is it possible to say;

insert 4 lines on each new tab and then

move range a1:c2 to d1, then delete columns a:c

I don't want to put any reference to sheet names, as they will change
depending upon the data extract.

Thanks again for your help Ron,

Regards

David





Ron de Bruin wrote:
See this page Ozzie
http://www.rondebruin.nl/copy5.htm

You must use this example
http://www.rondebruin.nl/copy5.htm#all

Guys,

[quoted text clipped - 12 lines]

David

--
Message posted via http://www.officekb.com