List worksheet names in active worksheet By Excluding Specific Sheets

Hi,

I need to list of sheets names in the workbook, but i need to exclude some specific sheets like

Sheet Names to exclude : SList, Mail, Dsheet

Please modify the code

Sub GeListSht()
    Dim i As Integer
        k = Sheets(Array("SList", "Mail", "DSheet"))
        For i = 1 To Sheets.Count
            If Sheets(i).Name <> k Then
            Sheets("StoreList").Cells(i, 6) = Sheets(i).Name
            End If
        Next i
End Sub