Macro to copy sheet, then delete one column

[UHsoccer]

I recorded a macro to copy a sheet and delete column B.
When I execute the macro, it copy the sheet and deletes column B but it ALSO eliminates column A. Not good
Here is the code that I use, help is appreciated
--------------------
Sub Copy1()

' copy sheet
Windows("price_Autocad-May-06-02.xls").Activate
Sheets(" US ASC").Select
Sheets(" US ASC").Copy Before:=Workbooks("price_S.xls").Sheets(2)
' delete column B
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
End Sub
-----------------

[Asala42]

G'day

Columns("B:B").Select
Selection.Delete Shift:=xlToLeft

That piece of code seems to work on my machine ok. Is there any more code you left out that might get involved? A Loop perhaps?

Adam

[Jack in the UK]

Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(1)
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Range("B1").Select

edit as needed

[UHsoccer]

To Asala42:

I actually did NOT delete any code, but added some comments.

If I delete C or D all is well, but the minute I remove B it also removes A

[UHsoccer]

To Jack in the UK

Added your suggestion, did not work for me. Truly bizarre

[Asala42]

Hmm...funky

I was able to create a couple test files to test your code - seems ok here. column A stays intact.

Do you by any chance have a merged cell in those columns? Anything weird in either Column A or B in your current spreadsheet.

For the hell of it, see if you can make the code work on a couple test files.

Sorry I can't be more of a help,
Adam

[NateO]

No need to select or shift to left (it inherantly does so). Try:

Sub Copy1()
' copy sheet
Sheets(" US ASC").Copy Before:=Workbooks("price_S.xls").Sheets(2)
' delete column B
[B:B].Delete
End Sub

If this code deletes column A, it's time to right click on the sheet in question, click view code and see what's happening there (or in the 'thisworkbook' module).

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-05-06 14:08 ]

[Jack in the UK]

these niothing in my code ok you must change the sheet names but ok did A delete as well?


If so i would say we have alians and need to look at that book, anyother codes...

something wrong

suggest make col b into object say
[B:B].Delete

so try :

sub JACK()
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(1)
[B:B].Delete

end sub