you can further clean this code:

Public Sub testdel()
Dim i As Integer
With ActiveWorkbook
For i = 1 To .Worksheets.Count
Worksheets(iSheet).Columns("C:C").Delete Shift:=xlToLeft
Next i
End With
End Sub

If there were sheets to skip, you could do this:

Public Sub testdel()
Dim i As Integer
With ActiveWorkbook
For i = 1 To .Worksheets.Count
Select Case .Worksheets(i).Name
Case "Sheet1", "Sheet2", "Sheet33"
Case Else: .Worksheets(i).Columns("C:C").Delete Shift:=xlToLeft
End Select
Next i
End With
End Sub

Regards,
KL

"Fredrik Wahlgren" wrote in message
...
Are there sheets where you don't want to delete column C? If not you can
use
this shorter code
I can't see any reason for the described behaviour unless you have
accidentally run some other macro.

Public Sub testdel()
Dim iSheetCount As Integer
Dim iSheet As Integer

iSheetCount = ActiveWorkbook.Worksheets.Count

For iSheet = 1 To iSheetCount
Worksheets(iSheet).Activate
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Next iSheet
End Sub

/Fredrik

"toedipper" wrote in message
...
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