Macro to delete sheets

[LearnMeExcel]

Hi
i wrote this code

Sub DelSh()
Dim ws As Worksheet, wb As Workbook
Set wb = ActiveWorkbook
Application.DisplayAlerts = False
For Each ws In Sheets
    If ws.Name = Split(wb.Name, ".") Then
        ws.Delete
    End If
Next ws
Application.DisplayAlerts = True
End Sub

but it doesn't work
when i change this line in my code it is working

If ws.Name & ".xlsx" = wb.Name Then

what is the wrong with Split

Thanx in Advanced

 

[cornflakegirl]

Split returns an array, not a text string.

Try:

Sub DelSh()
Dim ws As Worksheet, wb As Workbook, sName() as String
Set wb = ActiveWorkbook
Application.DisplayAlerts = False
For Each ws In Sheets
    sName = Split(wb.Name, ".")
    If ws.Name = sName(0) Then
        ws.Delete
    End If
Next ws
Application.DisplayAlerts = True
End Sub

 

[LearnMeExcel]

thanx emma for that