Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
Hi all,
Could any please advise me how i am able to detect an existing sheetname, e.g. "CSV", if it exist then toi delete the sheet, if it doesn't then just open a message box to let me know. Thanks in advace. |
#2
![]() |
|||
|
|||
![]()
Sub DeleteSheet()
Const SheetName As String = "CSV" Dim WkSht As Worksheet On Error Resume Next Set WkSht = Sheets(SheetName) If Err = 0 Then Application.DisplayAlerts = False WkSht.Delete Application.DisplayAlerts = True Else MsgBox "Sheet does not exist" Err.Clear End If On Error GoTo 0 End Sub "swiftcode" wrote: Hi all, Could any please advise me how i am able to detect an existing sheetname, e.g. "CSV", if it exist then toi delete the sheet, if it doesn't then just open a message box to let me know. Thanks in advace. |
#3
![]() |
|||
|
|||
![]()
Hi JMB,
Thank you for your help, this works exactly as i needed. Have a good day. "JMB" wrote: Sub DeleteSheet() Const SheetName As String = "CSV" Dim WkSht As Worksheet On Error Resume Next Set WkSht = Sheets(SheetName) If Err = 0 Then Application.DisplayAlerts = False WkSht.Delete Application.DisplayAlerts = True Else MsgBox "Sheet does not exist" Err.Clear End If On Error GoTo 0 End Sub "swiftcode" wrote: Hi all, Could any please advise me how i am able to detect an existing sheetname, e.g. "CSV", if it exist then toi delete the sheet, if it doesn't then just open a message box to let me know. Thanks in advace. |
#4
![]() |
|||
|
|||
![]()
most welcome.
"swiftcode" wrote: Hi JMB, Thank you for your help, this works exactly as i needed. Have a good day. "JMB" wrote: Sub DeleteSheet() Const SheetName As String = "CSV" Dim WkSht As Worksheet On Error Resume Next Set WkSht = Sheets(SheetName) If Err = 0 Then Application.DisplayAlerts = False WkSht.Delete Application.DisplayAlerts = True Else MsgBox "Sheet does not exist" Err.Clear End If On Error GoTo 0 End Sub "swiftcode" wrote: Hi all, Could any please advise me how i am able to detect an existing sheetname, e.g. "CSV", if it exist then toi delete the sheet, if it doesn't then just open a message box to let me know. Thanks in advace. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|