How to delete Sheets?

[manojbk]

Hi,

I have one excel book having no of sheets . i want to delete the all except first 3. is there any quick way to do this instead of deleting one by one. please help me..<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

[VoG]

Try

Sub delsheets()
Dim i As Long
Application.DisplayAlerts = False
For i = Worksheets.Count To 4 Step -1
    Worksheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

 

[manojbk]

Dear,
iam not gud in micro , any other simple method please...

 

[VoG]

Click on the 4th sheet's tab.

Hold down Shift and click on the last sheet's tab.

Right click and select Delete.

 

[manojbk]

wowww... nice..it is ok .. thank you ....