Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming,microsoft.public.office.developer.vba
|
|||
|
|||
Excel 2k - A bug or bad vba...?
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 |