one way
Sub deleteint()
Application.DisplayAlerts = False
For Each ws In Worksheets
If UCase(Left(ws.Name, 3)) = "INT" Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub


--
Don Guillett
SalesAid Software

"Alan L. Wagoner" wrote in message
...
Is there a way to delete worksheets using "*"?

I've got a bunch of sheets named IntTable, IntWork, Int...

I would like to be able to delete "Int*". These worksheets are generated
programmatically, so the need to be deleted programmatically as well.

Thanks in advance for the help.

--Alan