Recorded macro won't run

[RobinTaylor]

I recorded a simple macro to copy data from a worksheet and paste it into a
new blank worksheet. In the recorded code was the line:

Application.Run Range("ScOnWindow")

When I ran the code, I got an error on this line. Normally I remove these
"sconwindow" lines from the code anyway, but it concerns me that something I
just recorded will not run. Am I missing a reference library or something?
It will also crash on the following recorded line:

Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Any help would be appreciated! Thanks!

 

[Jim Thomlinson]

It has to do with Showcase Query and it is really not necessary for whatever
you are doing. Just confirm that you have your Showcase query menu and you
are good to go. If you do not have the menu then you can just re-boot your
Excel and it will come back...

 

[RobinTaylor]

Thanks for you quick response, Jim. My showcase menu is there, so that's all
good. But even if I remove that line and run the macro, the other recorded
line crashes. This one:

Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

I get runtime error 1004:
Pastespecial method of range Class failed.

 

[Don Guillett]

Post the rest of your macro. Somehow you may have selected something that
took your copy away.

 

[RobinTaylor]

Here is the macro:

ActiveCell.Range("A128").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

 

[Jim Thomlinson]

A couple of possible problems but it is hard to fix without seeing the rest
of the code. Post the entire macro and we can take a look.

 

[Jim Thomlinson]

Welcome to a bug in Excel 2000. There is no xlColumnWidths. Try this code...

Check out this link...
http://support.microsoft.com/default.aspx?scid=kb;en-us;231090

Here is some code that should work for you...

ActiveCell.Range("A128").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
Selection.PasteSpecial Paste:=8

HTH

 

[RobinTaylor]

Well, gee whiz! Guess they though we wouldn't need that one anymore!

Thanks for all your help. I appreciate it!

 

[Don Guillett]

paste=8