Hi Jordan,

How was the jungle?

Application.DisplayAlerts = False
For Each sh In Activeworkbook.Worksheets
If sh.Name < "Control" And sh.Name < "Menu" And _
sh.Name < "Table" Then
sh.Delete
End If
Next sh
Application.DisplayAlerts = True

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Jordan" wrote in message
...
Lets say i have a workbook with 20 sheets on it though the
number may vary and I want to delete all sheets which
arent named "Control", "Menu" and "Table"

How could i accomplish this with VBA?