Need help with a clear contents macro

[tley]

Hi,

I am trying to create a macro to delete the contents of cells B2:H16 on all sheets except the Totals Sheet and the Student Template sheet. The other issue is the names of the sheets and the number of sheets is ever changing.

This spreadsheet is tracking student tasks each week. The teacher will track progress and reset it each week to prepare for the next weeks assignments. Based on completed tasks, the students will come and go making the names on each sheet change on occasion and the number of students attending with grow and shrink at times.

Is there a way to do this?

 

[Domenic]

The following macro will loop through each worksheet within the workbook running the program, and clear the contents for B2:H16 on each worksheet, except the 'Totals Sheet' and the 'Student Template' sheet...

Sub Clear_Contents_Sheets()

    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Totals Sheet" And ws.Name <> "Student Template" Then
            ws.Range("B2:H16").ClearContents
        End If
    Next ws
    
End Sub

Hope this helps!

 

[Logit]

Option Explicit

' Except Totals Sheet and the Student Template

Sub ClearRngeAllSheetsExcept()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each ws In Application.ActiveWorkbook.Worksheets
        If ws.Name <> "Totals" And ws.Name <> "Student Template" Then
            ws.Range("B2:H16").ClearContents
        End If
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 

[tley]

Worked like a charm!