Macro para borrar todas las hojas de un libro

Te anexo una macro, cambia en la macro Hoja1, Hoja2 y Hoja3 por las hojas que quieres que no se borren, todas las demás se eliminarán del libro.

Sub BorrarVariasHojas()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each h In Sheets
        Select Case h.Name
            Case "Hoja1", "Hoja2", "Hoja3"
            Case Else: h.Delete
        End Select
    Next
End Sub

Saludos.Dante Amor

Si es lo que necesitas.