Select multipul worksheets in VB

[Dan71]

I am trying to select sheets 2 to the final sheet. I have counted howmany I have and therefor want to go from 2 to my varible and then delete them.
I have tried to record it but it lists them all with commas. I can do a loop and delete them one at a time but this is not very neat.
Can anyone tell me what the sintax is.
thanks
Dan

 

[Dan71]

Come on, someone must know!!

 

[Norie]

Dan

Perhaps this.

Application.DisplayAlerts = False
Application.EnableEvents = False
For I=2 To Worksheets.Count
     Worksheets(I).Delete
Next I
Application.DisplayAlerts = True
Application.EnableEvents = True

By the way what do you mean by 'neat'?

 

[Dan71]

Thanks for getting back to me Norrie. I have been out of the office so have not thought about this for a few days.

By neat I ment without using a loop type thing. That is how I have now done it. I thought it might be posible by using a one line command like you would select a rangeusing some varibles.

thanks for your help.
Dan