Check if Sheet Already Exist and Delete if so.

[mucah!t]

G'day all,

I'm using some code to import a sheet from another excel-file.
Now I'd like it to check if a sheet with the same name already exist and if so to give the user the option to delete it and proceed the importing of the new sheet or to abort the operations.

 

[VoG]

Hi. Try adding this function

Function WorksheetExists(WBName As String, WSName As String) As Boolean
On Error Resume Next
WorksheetExists = Workbooks(WBName).Worksheets(WSName).Name = WSName
End Function

Then use it like this

If WorksheetExists(ThisWorkbook.Name, "test") Then
    If MsgBox("Sheet exists: end procedure", vbQuestion + vbYesNo) = vbYes Then
        Exit Sub
    Else
        Application.DisplayAlerts = False
        ThisWorkbook.Sheets("test").Delete
        Application.DisplayAlerts = True
    End If
End If

Change test to the name of the sheet.

 

[Andrew Poulsom]

There's a SheetExists function here:

http://spreadsheetpage.com/index.php/tip/some_useful_vba_functions/

 

[mucah!t]

Thanks guys!