Loop through sheets and add to array to select

[mikeymay]

I have a number of worksheets and want to select all other than 2 specific sheet.

I'm struggling to compile the code to basically say 'Select all sheets other then Sheet1 and Sheet2'


TIA

 

[ranman256]

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

 

[mikeymay]

Works exactly as required! Thanks ranman....