detect and delete existing sheet
 

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.

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.

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.

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.