Exclude worksheet from loop.

[dustin0824]

I have a worksheet using the code below that consolidates all sheet data into the "Recap" sheet. This code works fime but I would like to add a sheet("Code List") to the workbook and exclude it from this code.I'd appreciate any help with this.Thanks!

Sub ConsolidateDataMacro_for_cure4glass1()'Macro author: tigeravatar Application.ScreenUpdating = False Dim wsDest As Worksheet: Set wsDest = Sheets("Recap") Dim NewLine As Long: NewLine = 4 wsDest.UsedRange.Offset(NewLine, 0).ClearContents Dim SheetIndex As Long, RowIndex As Long Dim ws As Worksheet, rngData As Range For SheetIndex = 1 To Sheets.Count Set ws = Sheets(SheetIndex) If ws.Name <> wsDest.Name Then For RowIndex = 4 To 25 If ws.Cells(RowIndex, "B").Value <> vbNullString Then Set rngData = ws.Range(ws.Cells(RowIndex, "A"), ws.Cells(RowIndex, Columns.Count).End(xlToLeft)) wsDest.Cells(NewLine, "A").Resize(1, rngData.Columns.Count).Value = rngData.Value NewLine = NewLine + 1 End If Next NewLine = NewLine + 1 End If Next Application.ScreenUpdating = True End Sub