Sub x()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Test Lookup" And ws.Name <> "Specs" Then
'do stuff
Next ws

End Sub