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.