Msg box

[CodesiriuS]

Hello I'm trying to add a message box that alerts users that "this workbook has been formated already". For the most part I have a sub routine that formats a user selected workbook, it then adds formatting and lastly makes a new worksheet called "FDM FORMATTED" the problem is users get errors when the workbook already has a sheet named "FDM FORMATTED". I'm trying to see what the best practice is for error handling duplicate worksheets in a workbook? Any thoughts...

Dim ws1 As Worksheet, ws2 As Worksheet


    'setup
    Application.ScreenUpdating = False


    With wb
        Set ws1 = .ActiveSheet


    On Error Resume Next
    'delete existing
    Application.DisplayAlerts = False
    .Worksheets("NEW").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0


    'add new
    Set ws2 = Worksheets.Add
    ws2.Name = "FDM FORMATTED"
      
         End With

 

[CodesiriuS]

Thanks Kasan it worked perfectly - I just needed to add it to the bottom of the module instead.