Delete worksheets

[sanjna000]

Hi,

i need to delete extra worksheets in my workbook.

Sheets("Sheet1").Delete false

this generated an error.

Pls can anyone help me with this!

I really appriciate u r help

Thanks a lot for u r help in advance...
Sanjna...

 

[ETID]

Application.DisplayAlerts = False
Sheets("Sheet1").Delete
Application.DisplayAlerts = True

 

[KenWright]

If it is a particular sheet you want to keep but lose all the others then you could just loop through:-

Sub DelShts()
Application.DisplayAlerts = False
  For Each Sheet In ActiveWorkbook.Sheets
    If Sheet.Name <> "Keep Me" Then
       Sheet.Delete
    End If
 Next
Application.DisplayAlerts = True
End Sub

Regards
Ken.................

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------

 

[sanjna000]

Thanks guys,

It works perfectly!

Cheers,
Sanjna...