CodesiriuS
New Member
- Joined
- Dec 18, 2016
- Messages
- 27
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...
Code:
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
Last edited: