Sub SelectAllExcept()
Dim sht As Worksheet
Dim sShtList As String
For Each sht In Sheets
If sht.Name <> "Sheet1" And sht.Name <> "Sheet2" Then
sShtList = sShtList & sht.Name & ","
End If
Next
sShtList = Left(sShtList, Len(sShtList) - 1) 'remove last comma
Sheets(Split(sShtList, ",")).Select
set sht = nothing
End Sub