Hello Goodman: I appreciate your help, only one more step to go, all your
suggestion is very helpful this is my Macro and it stuck in Range(x) Copy,
maybe when there is no more object, it stuck, what statement shall we add.
Thanks to God that made other people in the advanced country like you can
help us under developping country Indonesia. Again Sir, please help us

Sub AutoShape7_Click()
'
' AutoShape7_Click Macro
' Macro recorded 5/10/2007 by Frank
'

'
ActiveWindow.SmallScroll ToRight:=-5
Range("A9:Y1714").Select
Selection.ClearContents
Dim x As Object
For Each x In ActiveWorkbook.Names
Range(x).Copy
Sheets("SUMMMARYWBLA").Select
Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
Next x
End Sub

"FSt1" wrote:

also...
i just noticed your offset(9,0)....
this will paste your dbs 9 rows apart.
I used the for next loop because i thought you had more than 2 dbs.
if you only have 2 dbs then we don't need the loop.
try and post back if you have problems.

regards
FSt1

"Frank Situmorang" wrote:

Hello:

I have tried below, but it stuck in the first row of VBA as follows:
Sub AutoShape1_Click()
'
' AutoShape1_Click Macro
' Macro recorded 5/8/2007 by Frank
'

'
Sub MacCopyRanges()
Dim dbaseA00 As Object
Dim dbaseE00 As Object
For Each dbaseA00 In ActiveWorkbook.Names
Range(dbaseA00).Copy
Sheets("Conso").Select
Range("a65000").End(xlUp).Offset(9, 0).PasteSpecial xlPasteAll
Next dbaseE00
End Sub


"FSt1" wrote:

hi,
try somethink like this...
Sub MacCopyRanges()
Dim x As Object
For Each x In ActiveWorkbook.Names
Range(x).Copy
Sheets("sheet1").Select
Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
Next x
End Sub

you may have to adjust to fit your stuff.

Regards
FSt1

"Frank Situmorang" wrote:

Dear Experts:

I have defined the dynamic range using "offset" to overcome the number of
rows which is variable.

From the summary sheet I have defined the name of the range such as
"dbase1", "dbase2", etc... of each sheet.

My question is how can we copy this name range to be combined to the summary
sheet. the structures( number of columns)of all sheets are all the same.

I have thought of starting copying dbase1 to A9, then using End and xldown.
But could you please explain what macro can we use to handle this task.

Many thanks,

Frank