Hi,

I have a macro that attempts to delete column A on all sheets in the
workbook. What it currently does s delete all columns on the first sheet
(activesheet) only.

For Each ws In ActiveWorkbook.Worksheets
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Next

Can anyone help to modify the code??
--
K Hogwood-Thompson

Try this:

Dim ws as Worksheet

For Each ws In ActiveWorkbook.Worksheets
ws.Columns("A").Delete Shift:=xlToLeft
Next

HTH
--
AP

"KHogwood-Thompson" <(E-Mail Removed)> a écrit
dans le message de news:
3084AD7E-BDFB-40FC-BA5B-(E-Mail Removed)...
> Hi,
>
> I have a macro that attempts to delete column A on all sheets in the
> workbook. What it currently does s delete all columns on the first sheet
> (activesheet) only.
>
> For Each ws In ActiveWorkbook.Worksheets
> Columns("A:A").Select
> Selection.Delete Shift:=xlToLeft
> Next
>
> Can anyone help to modify the code??
> --
> K Hogwood-Thompson

You are iterating the worksheets but not giving your commands a reference to
it (hence, you keep deleting Column A on the active sheet, once per sheet in
the workbook). Also, whenever you see the selection of some range followed
by a method of that selection, you can almost always combine it into one
statement. Try this...

For Each ws In ActiveWorkbook.Worksheets
ws.Columns("A:A").Delete Shift:=xlToLeft
Next

Rick


"KHogwood-Thompson" <(E-Mail Removed)> wrote in
message news:3084AD7E-BDFB-40FC-BA5B-(E-Mail Removed)...
> Hi,
>
> I have a macro that attempts to delete column A on all sheets in the
> workbook. What it currently does s delete all columns on the first sheet
> (activesheet) only.
>
> For Each ws In ActiveWorkbook.Worksheets
> Columns("A:A").Select
> Selection.Delete Shift:=xlToLeft
> Next
>
> Can anyone help to modify the code??
> --
> K Hogwood-Thompson

Yes that works perfectly. Many thanks Ardus!
--
K Hogwood-Thompson


"Ardus Petus" wrote:

> Try this:
>
> Dim ws as Worksheet
>
> For Each ws In ActiveWorkbook.Worksheets
> ws.Columns("A").Delete Shift:=xlToLeft
> Next
>
> HTH
> --
> AP
>
> "KHogwood-Thompson" <(E-Mail Removed)> a écrit
> dans le message de news:
> 3084AD7E-BDFB-40FC-BA5B-(E-Mail Removed)...
> > Hi,
> >
> > I have a macro that attempts to delete column A on all sheets in the
> > workbook. What it currently does s delete all columns on the first sheet
> > (activesheet) only.
> >
> > For Each ws In ActiveWorkbook.Worksheets
> > Columns("A:A").Select
> > Selection.Delete Shift:=xlToLeft
> > Next
> >
> > Can anyone help to modify the code??
> > --
> > K Hogwood-Thompson
>
>
>

One way
Sub deletecolainallshts()
For i = 1 To Sheets.Count
Sheets(i).Columns("a").Delete
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"KHogwood-Thompson" <(E-Mail Removed)> wrote in
message news:3084AD7E-BDFB-40FC-BA5B-(E-Mail Removed)...
> Hi,
>
> I have a macro that attempts to delete column A on all sheets in the
> workbook. What it currently does s delete all columns on the first sheet
> (activesheet) only.
>
> For Each ws In ActiveWorkbook.Worksheets
> Columns("A:A").Select
> Selection.Delete Shift:=xlToLeft
> Next
>
> Can anyone help to modify the code??
> --
> K Hogwood-Thompson