Sorry Jim, I just wanted to say " just to mention". Sorry I typed it very
quickly and didn't wear my glasses. Also English in our country is very
seldom.

Greetings from Jakarta, Indonesia.

Frank

"Jim Cone" wrote:


Frank,

Not sure what this means... "jsut to memtopm "
However try...

Range("A1:X1000").Copy Range("N12")
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Frank Situmorang"
wrote in message
Hi experts:
When I create a macro to copy and then paste a range consintis of 1000 lines
in the same sheet, I used scroll down, it works OK for one sheet.

Since I want to do it for doing the same type of job for the other 8 sheets
by combining the same VBA text, Coz I want just to have 1 button to do it,
but the message is " PROCEDURE IS TO BIG"

My question is, is there any VBA function, jsut to memtopm copy to range say
"A1... to X1000) than can replace the following lot lines:
Selection.Copy
Range("N12:N1004").Select
ActiveSheet.Paste
Range("N9:X1002").Select
ActiveWindow.SmallScroll Down:=-11
ActiveWindow.ScrollRow = 980
ActiveWindow.ScrollRow = 978... this will go al the way down to line
---1000
.........
Thanks for any idea.
Frank