Avoid VBA errors with the same page name

[knaabis]

How to integreate in this VBA - when I try to create a page by the existing name, then that VBA is suspended?

Sub SheetNumber()
DialogSheets("Dialog1").Show
Sheets.Add.Name = DialogSheets("Dialog1").EditBoxes("4").Text
With DialogSheets("Dialog1")
.EditBoxes("4").Text = ""
End With
End Sub

 

[RoryA]

That, once again, is the same question you have already had answered.

 

[Norie]

Knaabis

Can you explain what the overall purpose of this code is?

We know you are creating worksheets, but why?

Also why are you allowing existing names to be used in the first place?

As for the code to check for the sheet name existing what you should do is add a worksheet without a name, ie allow Excel to give it a name (eg Sheet9, Sheet5...

Then, and only then try and rename it.

Dim wsNew As Worksheet
Dim strName As String
    Set wsNew = Worksheets.Add
 
    On Error Resume Next
 
     strName = DialogSheets("Dialog1").EditBoxes("4").Text
 
     wsNew.Name = strName
 
     On Error GoTo 0
 
     MsgBox "There is already a worksheet with the name " & strName

This worked for me, and I even created a Dialog Sheet, for fun.

Why don't you use a UserForm, all the rage apparently.