Deleting sheets in a workbook

[Cookster]

I have a macro that copies a specific sheet and pastes it in X number of times, where X is referred to in a cell. The macro is as follows:

Sub CopyCTRs()
Dim i As Long
For i = 1 To Sheets("Input Sheet").Range("AQ11").Value
Sheets("CTR Template").Copy After:=Sheets(Sheets.Count)
Next i
End Sub

I wish to now create a macro which can delete Sheets from a workbook, I wish to delete the 7th sheet to the last sheet in a workbook, the actual number of sheets to be deleted will vary. Can anyone help?

Cheers

 

[Jonmo1]

Try

For i = Sheets.Count to 7 Step -1
    Sheets(i).Delete
Next i