The FOR EACH loop that I show below works terrific for going thru ALL tabs
and performing an operation on each one. I would like to keep the same FOR
EACH statement and be able to exclude say Sheet75 and Sheet85 from that loop.
Are there any suggestions, your help is much appreciated. Thx - Dean

Dim lRealLastRow As Long
Dim lRealLastColumn As Long
Dim wks As Worksheet
For Each wks In Worksheets
wks.Select
LastRow = ActiveSheet.UsedRange.Row - 1 +
ActiveSheet.UsedRange.Rows.Count
wks.Select
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
Sheets("Complete list").Select
Range("A1").Select
On Error Resume Next
lRealLastRow = Cells.Find("*", Range("A1"), xlFormulas, ,
xlByRows, xlPrevious).Row + 2
lRealLastColumn = Cells.Find("*", Range("A1"), xlFormulas, ,
xlByColumns, xlPrevious).Column
Cells(lRealLastRow, 1).Select
ActiveSheet.Paste
Next wks