Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True

But without a loop you can use this

On Error Resume Next
Application.DisplayAlerts = False
Sheets("taz").Delete
Application.DisplayAlerts = True
On Error GoTo 0

--
Regards Ron de Bruin
http://www.rondebruin.nl



"T De Villiers" wrote in message
news:T.De.Villiers.2bgqxv_1153767309.8944@excelfor um-nospam.com...

When running the code I am given the option to delete, I dont require
this,
many thks

Sub reb()

Dim wks As Worksheet
Dim wkb As Workbook

For Each wks In ThisWorkbook.Worksheets
If wks.Name = "taz" Then
wks.Delete
End If
Next


End Sub


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=564422