List worksheet names in active worksheet By Excluding Specific Sheets

not sure but maybe so

Sub GeListSht22()
Dim i As Long, j As Long
For i = 1 To ThisWorkbook.Sheets.Count
    Select Case Sheets(i).Name
        Case "SList", "Mail", "DSheet"
            'do nothing
        Case Else
            j = j + 1
            Sheets("StoreList").Cells(j, 6) = Sheets(i).Name
    End Select
Next i
End Sub