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