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.