Copying Drop Down Lists
 

I am trying to copy data from one worksheet into an updated worksheet.
One of the pages contains cells with drop down box selections.
I'm trying to copy the data with the macro below but it's getting hung up on
the ActiveSheet.Shapes("Drop Down 50").Select Selection.Copy line.
Can anyone help?

Windows("BFP_OPXBUDGET_V452_15NOV05.xls").Activate
Range("B30:B37").Select
ActiveSheet.Shapes("Drop Down 50").Select
Selection.Copy
Windows("BFP_OPXBUDGET_V454_20NOV05.xls").Activate
Range("B30").Select
ActiveSheet.Paste

Copying Drop Down Lists
 

Assuming hung up means that you get an error. If the error is subscript out
of range, then you don't have a shape with the name "Drop Down 50"

--
Regards,
Tom Ogilvy

"David" wrote in message
...
I am trying to copy data from one worksheet into an updated worksheet.
One of the pages contains cells with drop down box selections.
I'm trying to copy the data with the macro below but it's getting hung up
on
the ActiveSheet.Shapes("Drop Down 50").Select Selection.Copy line.
Can anyone help?

Windows("BFP_OPXBUDGET_V452_15NOV05.xls").Activate
Range("B30:B37").Select
ActiveSheet.Shapes("Drop Down 50").Select
Selection.Copy
Windows("BFP_OPXBUDGET_V454_20NOV05.xls").Activate
Range("B30").Select
ActiveSheet.Paste

Copying Drop Down Lists
 

I used the Record Macro function to get the code. When I copy and paste
manually it works. Anything else you can offer?

"Tom Ogilvy" wrote:

Assuming hung up means that you get an error. If the error is subscript out
of range, then you don't have a shape with the name "Drop Down 50"

--
Regards,
Tom Ogilvy

"David" wrote in message
...
I am trying to copy data from one worksheet into an updated worksheet.
One of the pages contains cells with drop down box selections.
I'm trying to copy the data with the macro below but it's getting hung up
on
the ActiveSheet.Shapes("Drop Down 50").Select Selection.Copy line.
Can anyone help?

Windows("BFP_OPXBUDGET_V452_15NOV05.xls").Activate
Range("B30:B37").Select
ActiveSheet.Shapes("Drop Down 50").Select
Selection.Copy
Windows("BFP_OPXBUDGET_V454_20NOV05.xls").Activate
Range("B30").Select
ActiveSheet.Paste

Copying Drop Down Lists
 

Someone had made the range of data into a "list" that could be sorted. I
removed this and it works normally. Thanks!

"Tom Ogilvy" wrote:

Assuming hung up means that you get an error. If the error is subscript out
of range, then you don't have a shape with the name "Drop Down 50"

--
Regards,
Tom Ogilvy

"David" wrote in message
...
I am trying to copy data from one worksheet into an updated worksheet.
One of the pages contains cells with drop down box selections.
I'm trying to copy the data with the macro below but it's getting hung up
on
the ActiveSheet.Shapes("Drop Down 50").Select Selection.Copy line.
Can anyone help?

Windows("BFP_OPXBUDGET_V452_15NOV05.xls").Activate
Range("B30:B37").Select
ActiveSheet.Shapes("Drop Down 50").Select
Selection.Copy
Windows("BFP_OPXBUDGET_V454_20NOV05.xls").Activate
Range("B30").Select
ActiveSheet.Paste