I have an Excel workbook with 15 worksheets in it that each week I need to
zero out the data from four (4) columns that are next to each other to get
ready for the next week. I would like a macro to do either zero out one and
then jump to the next or do them all at one time.

Thanks
Beep Beep

This will clear out Columns A thru D

Sub clearWorksheetLoop()
Dim WS_Count As Integer
Dim i As Integer
WS_Count = _
ActiveWorkbook.Worksheets.Count
' Begin the loop.
For i = 1 To WS_Count
ActiveWorkbook.Worksheets(i) _
.Columns("A:D").ClearContents
Next i
End Sub

"Beep Beep" wrote:

I have an Excel workbook with 15 worksheets in it that each week I need to
zero out the data from four (4) columns that are next to each other to get
ready for the next week. I would like a macro to do either zero out one and
then jump to the next or do them all at one time.

Thanks
Beep Beep

As a macro you need to do it one sheet at a time. Did you need all 15 sheets
or are some excluded? did you need the whole column or just parts of the
column.

This will go through all sheets and clear out a range of cells

sub ClearStuff()
dim wks as worksheet

for each wks in worksheets
with wks
.range(.range("B2"), .cells(rows.count, "E")).clearcontents
end with
next wks
end sub
--
HTH...

Jim Thomlinson


"Beep Beep" wrote:

I have an Excel workbook with 15 worksheets in it that each week I need to
zero out the data from four (4) columns that are next to each other to get
ready for the next week. I would like a macro to do either zero out one and
then jump to the next or do them all at one time.

Thanks
Beep Beep

Jim yes I have more sheets then the 15 I mentioned. There are only 15 that I
need to change on a weekly basis. I guess I would have to have the name of
the tab's in the macro or as you suggested one at a time

"Jim Thomlinson" wrote:

As a macro you need to do it one sheet at a time. Did you need all 15 sheets
or are some excluded? did you need the whole column or just parts of the
column.

This will go through all sheets and clear out a range of cells

sub ClearStuff()
dim wks as worksheet

for each wks in worksheets
with wks
.range(.range("B2"), .cells(rows.count, "E")).clearcontents
end with
next wks
end sub
--
HTH...

Jim Thomlinson


"Beep Beep" wrote:

I have an Excel workbook with 15 worksheets in it that each week I need to
zero out the data from four (4) columns that are next to each other to get
ready for the next week. I would like a macro to do either zero out one and
then jump to the next or do them all at one time.

Thanks
Beep Beep

In that case try this

sub ClearStuff()
dim wks as worksheet

for each wks in worksheets
with wks
select case .name
Case "Sheets", "I", "Don't", "Want", "Cleared" 'sheet names
Case Else
.range(.range("B2"), .cells(rows.count, "E")).clearcontents
End Select
end with
next wks
end sub
--
HTH...

Jim Thomlinson


"Beep Beep" wrote:

Jim yes I have more sheets then the 15 I mentioned. There are only 15 that I
need to change on a weekly basis. I guess I would have to have the name of
the tab's in the macro or as you suggested one at a time

"Jim Thomlinson" wrote:

As a macro you need to do it one sheet at a time. Did you need all 15 sheets
or are some excluded? did you need the whole column or just parts of the
column.

This will go through all sheets and clear out a range of cells

sub ClearStuff()
dim wks as worksheet

for each wks in worksheets
with wks
.range(.range("B2"), .cells(rows.count, "E")).clearcontents
end with
next wks
end sub
--
HTH...

Jim Thomlinson


"Beep Beep" wrote:

I have an Excel workbook with 15 worksheets in it that each week I need to
zero out the data from four (4) columns that are next to each other to get
ready for the next week. I would like a macro to do either zero out one and
then jump to the next or do them all at one time.

Thanks
Beep Beep