Themes adds much to Workbook Sizes. I won't use Themes unless the business that owns the book insists.
Paul is correct, the use of CodeNames is preferred in VBA.
There are two methods other than "XXXX". Inclusive and Exclusive
Inclusive:
Dim Included as String
Included = "sheet1Name,Sheet2Name,etc"
for each ws
If CBool(Instr(Included, ws.Name)) Then do stuff
'Yeah, I know CBool is supposed to be redundant. Like I trust MS.
Exclusive:
Dim Excluded As String
Excluded = "Sh1Name,Sh2Name,etc"
For Each ws
If Not CBool(Instr(Excluded, ws.Name)) Then Do Stuff
Cleaning up your Macro and making it a Procedure:
Sub SamT
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
'Replace below line with Inclusive or Exclusive
If CBool(Instr(ws.Name, "XXXX")) Then
Sheets("Template").Cells.Copy .Cells
.Range("C12").Value = .Name 'Copy sheet name as property input within the sheet
.Tab.Color = vbGreen
End If
Next ws
End Sub