Something like this maybe.

[VBA]Sub Delete_Some_Sheets()
Dim wrkSheet As Worksheet
Application.ScreenUpdating = False
For Each wrkSheet In ActiveWorkbook.Worksheets
With wrkSheet
If .Name <> "Security" And _
.Name <> "f2106" And _
.Name <> "2012" Then
Application.DisplayAlerts = False
Sheets(.Name).Delete
Application.DisplayAlerts = True
End If
End With
Next wrkSheet
Sheets("2012").Name = "Calculator"
Application.ScreenUpdating = True
End Sub
[/VBA]