I tried the code on 2K and I did not get the same problem... I did tighten
the code up for you though...

Sub testdel()
'
' testdel Macro
' Macro recorded 06/04/2005 by blah blah
'
Sheets("RFC00020").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00035").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00040").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00050").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00060").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00100").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00101").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00102").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00103").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00104").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00199").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00200").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00201").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00202").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00203").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00204").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00299").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00300").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00303").Columns("C:C").Delete Shift:=xlToLeft
Sheets("RFC00304").Columns("C:C").Delete Shift:=xlToLeft

End Sub

HTH

"toedipper" wrote:

Hello,

Excel 2000 and Windows XP

I have some simple code which is supposed to go through 20 worksheets and
delete Column C in each sheet.. The code is below. Each sheet is filled
with content from cols A-O but instead of deleting col c in each sheet the
code below deletes whats in cols a-n in all sheets and puts what is in O in
col A.

Confusing I know but irritating. Can anyone tell me why the code below does
not just delete Col C in each sheet?

Thanks,

td.

Sub testdel()
'
' testdel Macro
' Macro recorded 06/04/2005 by blah blah
'
Sheets("RFC00020").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00035").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00040").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00050").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00060").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00100").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00101").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00102").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00103").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00104").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00199").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00200").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00201").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00202").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00203").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00204").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00299").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00300").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00303").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00304").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00403").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

Sheets("RFC00404").Select
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft

End Sub