I need help with the following code to count and list only worksheets
that contain the name "(anything)&-Pilot". I have code that installs
the worksheet and names it, but I can't get a list of sheets with
"(anything)&-Pilot".
TIA for any help,
Doug

Present code:

Private Sub CountPilots()
Dim Plt As Long
'count only worksheets named (anything)-Pilot
With ActiveWorkbook.Worksheets(Array("" & "," & "pilot", "" &
"-pilot", "" & "- pilot"))
Worksheets(Array("" & "," & "pilot", "" & "-pilot", "" & "-
pilot")).Count = Plt
End With
'Place name of all worksheets named (anything)-pilot on activesheet
or "Name-List" sheet
For Plt = 1 To Worksheets.Count
ActiveCell(Plt, 1).Value = Worksheets(Plt).Name
Next Plt
End Sub