Excel - Eliminar varias hojas de excel

Tengo una macro que crea varias hojas (de 1 a 20) y esas hojas creadas solo las uso una vez para imprimir y después quiero borrarlas e intente hacerlo con este código

Sub eliminar()
Dim sig As Integer
Application.DisplayAlerts = False
For sig = 2 To Worksheets.Count
Worksheets(2).Delete
Next
Application.DisplayAlerts = True

End Sub
y lo que sucede es que al correrlo solo elimina una hoja y se detiene la macro... si alguien tuviera otro código o una mejor idea ojala me pueda ayudar grx

Todo esta bien pero solamente debe cambiar:
Worksheets(sig).delete

Un saludo desde Ambato, Ecuador
SCM