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