EXCEL - Clear_sheets.vba

Clear_sheets.vba

Option Explicit

Sub CLEARDATA()
On Error GoTo ErrHandler

Dim arrSHEETS As Variant
Dim wsheets As Variant

  arrSHEETS = Split("Alpha,Bravo,Charlie,Delta,Echo,Foxtrot,Golf,Hotel", ",")
  

        Sheets("Errors").Range("A1:BBB20000").ClearFormats
        Sheets("Errors").Tab.ColorIndex = xlColorIndexNone
        Sheets("CSV").Tab.ColorIndex = xlColorIndexNone
    For Each wsheets In arrSHEETS
        Worksheets(wsheets).Range("A1:BBB20000").ClearContents
        Worksheets(wsheets).Cells.ClearComments
        Sheets(wsheets).Select
            Cells(1, 1).Activate
    Next wsheets
        Sheets("CSV").Select
            Cells(2, 1).Activate
Exit Sub

ErrHandler:
 MsgBox "I'm sorry - there was an error performing this task."
 Resume Next
End Sub