Delete sheet
 

I am wanting to enter the name of a worksheet in D1, and have a macro that
looks for the worksheet with that name and automatically delete it without
prompts or warnings. Can someone help me out with that code?

Thanks so much

Delete sheet
 

right click sheet tabview codeinsert this. If you make a mistake, don't
SAVE the workbook.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$D$1" Then Exit Sub
Application.DisplayAlerts = False
Sheets(Target.Value).Delete
Application.DisplayAlerts = True
End Sub
--
Don Guillett
SalesAid Software

"Tom" wrote in message
...
I am wanting to enter the name of a worksheet in D1, and have a macro that
looks for the worksheet with that name and automatically delete it without
prompts or warnings. Can someone help me out with that code?

Thanks so much

Delete sheet
 

Same as Dons but with code for errors
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strmsg As String
On Error GoTo SheetError
If Target.Address < "$D$1" Then Exit Sub
Application.DisplayAlerts = False
Sheets(Target.Value).Delete
Application.DisplayAlerts = True
SheetError:
strmsg = "Error # " & Err & " : " & Error(Err)
Select Case Err

Case 9:

MsgBox strmsg & vbCrLf & "Sheet you selected is not a valid sheet"
Exit Sub

Case Else:

MsgBox strmsg
Exit Sub
End Select
End Sub

"Tom" wrote:

I am wanting to enter the name of a worksheet in D1, and have a macro that
looks for the worksheet with that name and automatically delete it without
prompts or warnings. Can someone help me out with that code?

Thanks so much

Delete sheet
 

Thanks Don!

"Don Guillett" wrote:

right click sheet tabview codeinsert this. If you make a mistake, don't
SAVE the workbook.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$D$1" Then Exit Sub
Application.DisplayAlerts = False
Sheets(Target.Value).Delete
Application.DisplayAlerts = True
End Sub
--
Don Guillett
SalesAid Software

"Tom" wrote in message
...
I am wanting to enter the name of a worksheet in D1, and have a macro that
looks for the worksheet with that name and automatically delete it without
prompts or warnings. Can someone help me out with that code?

Thanks so much