I have a workbook with multiple worksheets. I want to delete certain columns
from each worksheet and then save as a new workbook.

Ex:
Worksheet 1: delete columns aa:ay
Worksheet 2: delete columns Z:BD

What is the question?

Sorry I am new to VB and I forgot the code:

I am trying to cycle thru the worksheets and remove certain columns.

I tried this and get a delete method of range class error

ActiveWorkbook.Worksheets("Sheet1").Select
Worksheet.Columns("AA:AY").Delete Shift:=xlToLeft

Any help would be appreciated.



--
BP


"TomPl" wrote:

What is the question?

THis will delete it on every worksheet

Dim WS as Worksheet

For Each WS in ActiveWorkbook.Worksheets
WS.Columns("AA:AY").Delete
Next WS
--
HTH,
Barb Reinhardt



"BP" wrote:

Sorry I am new to VB and I forgot the code:

I am trying to cycle thru the worksheets and remove certain columns.

I tried this and get a delete method of range class error

ActiveWorkbook.Worksheets("Sheet1").Select
Worksheet.Columns("AA:AY").Delete Shift:=xlToLeft

Any help would be appreciated.



--
BP


"TomPl" wrote:

What is the question?

ThisWorkbook.Worksheets("Sheet1").Columns("AA:AY") .Delete
ThisWorkbook.Worksheets("Sheet2").Columns("Z:BD"). Delete
--
HTH,
Barb Reinhardt



"BP" wrote:

I have a workbook with multiple worksheets. I want to delete certain columns
from each worksheet and then save as a new workbook.

Ex:
Worksheet 1: delete columns aa:ay
Worksheet 2: delete columns Z:BD

Thanks but I need to specify different columns ranges on different worksheets
--
BP


"Barb Reinhardt" wrote:

THis will delete it on every worksheet

Dim WS as Worksheet

For Each WS in ActiveWorkbook.Worksheets
WS.Columns("AA:AY").Delete
Next WS
--
HTH,
Barb Reinhardt



"BP" wrote:

Sorry I am new to VB and I forgot the code:

I am trying to cycle thru the worksheets and remove certain columns.

I tried this and get a delete method of range class error

ActiveWorkbook.Worksheets("Sheet1").Select
Worksheet.Columns("AA:AY").Delete Shift:=xlToLeft

Any help would be appreciated.



--
BP


"TomPl" wrote:

What is the question?

It's very much the same. See other reply.
--
HTH,
Barb Reinhardt



"BP" wrote:

Thanks but I need to specify different columns ranges on different worksheets
--
BP


"Barb Reinhardt" wrote:

THis will delete it on every worksheet

Dim WS as Worksheet

For Each WS in ActiveWorkbook.Worksheets
WS.Columns("AA:AY").Delete
Next WS
--
HTH,
Barb Reinhardt



"BP" wrote:

Sorry I am new to VB and I forgot the code:

I am trying to cycle thru the worksheets and remove certain columns.

I tried this and get a delete method of range class error

ActiveWorkbook.Worksheets("Sheet1").Select
Worksheet.Columns("AA:AY").Delete Shift:=xlToLeft

Any help would be appreciated.



--
BP


"TomPl" wrote:

What is the question?

Thank You!!! That worked great
--
BP


"Barb Reinhardt" wrote:

ThisWorkbook.Worksheets("Sheet1").Columns("AA:AY") .Delete
ThisWorkbook.Worksheets("Sheet2").Columns("Z:BD"). Delete
--
HTH,
Barb Reinhardt



"BP" wrote:

I have a workbook with multiple worksheets. I want to delete certain columns
from each worksheet and then save as a new workbook.

Ex:
Worksheet 1: delete columns aa:ay
Worksheet 2: delete columns Z:BD