how to delete a sheet using a wildname

[Tody03]

in my excel file i have three sheets: "merged_20140620","Sheet1","Sheet2"
the name of the first sheet combines name and date and is changed every day.
I want to delete the first two sheets.

Please help me to define the first sheet without the date.

Application.DisplayAlerts = False
Worksheets("merged_").Delete
Worksheets("sheet1").Delete
Application.DisplayAlerts = True
End Sub

Thanks
Tody

 

[Rick Rothstein]

in my excel file i have three sheets: "merged_20140620","Sheet1","Sheet2"
the name of the first sheet combines name and date and is changed every day.
I want to delete the first two sheets.

Please help me to define the first sheet without the date.

Application.DisplayAlerts = False
Worksheets("merged_").Delete
Worksheets("sheet1").Delete
Application.DisplayAlerts = True
End Sub

Maybe this...

Dim WS as Worksheet

Application.DisplayAlerts = False
For Each WS in Worksheets
  If WS.Name = "Sheet1" Or WS.Name Like "merged_*" Then WS.Delete
Next
Application.DisplayAlerts = True

 

[Tody03]

hello Rick
It is working!!!!!!
Thanks
Tody