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

 

[knaabis]

How to get functionality to this VBA, if sheet name exist?

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

 

[knaabis]

Please help...

 

[Norie]

knaabis

Can you please tell us what you are trying to do with this code?

Not just the part about checking to see if an existing worksheet has the same name as the name you are trying to use for the new sheet.

One thing in particular, why are you using DialogSheets?

 

[knaabis]

I each new worksheet i create special information input form with special formating and with some buttons.
I has a worksheet with many sheets with very similar names.
New sheet i create by VBA and sheet name add also by VBA.
When i create the new sheet and sheet with this new name exist , then i get error in VBA...

 

[Norie]

Well that's already been answered by Weaver.

 

[knaabis]

BUT how to integrate this Weaver function in my VBA?

 

[Weaver]

Something like this, maybe?

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

Function sheetExists(ByVal shtName As String) As Boolean
    On Error Resume Next
    sheetExists = ActiveWorkbook.Sheets(shtName).Name <> ""
End Function

 

[knaabis]

Error in this line - Function sheetExists(ByVal shtName As String) As Boolean
Compile error: ambiguous name detected...

 

[RoryA]

Then you already have a function or sub called sheetExists

 

[knaabis]

Anyway, if I enter an existing sheet number, i get error in this place:
Sheets.Add.Name = DialogSheets("Dialog1").EditBoxes("4").Text