Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete ROW on Sheet#1 corupts data on Sheet#2 | Excel Worksheet Functions | |||
Delete values in sheet 2 that arre found in sheet 1 | Excel Discussion (Misc queries) | |||
Delete rows from one sheet containing deatils on the second sheet | New Users to Excel | |||
delete content of one sheet off another sheet | Excel Programming | |||
delete sheet help 2 | Excel Programming |