VBA add new sheet to End of Workbook

[Doflamingo]

Hi all, I have a question

Here is the code to add a new sheet having the name of a textbox.value from a userform

[FONT=Arial][COLOR=#333333][FONT=Montserrat][COLOR=#000000]Sheets[/COLOR][COLOR=#000000].[/COLOR][COLOR=#000000]Add [/COLOR][COLOR=#000000]After[/COLOR][COLOR=#000000]:[/COLOR][COLOR=#000000]=[/COLOR][COLOR=#000000]Sheets[/COLOR][COLOR=#000000]([/COLOR][COLOR=#000000]Sheets[/COLOR][COLOR=#000000].[/COLOR][COLOR=#000000]Count[/COLOR][COLOR=#000000])[/COLOR][/FONT][/COLOR][/FONT]
[FONT=Arial][COLOR=#333333][FONT=Montserrat][COLOR=#000000][/COLOR][/FONT][/COLOR][COLOR=#333333][FONT=Montserrat][COLOR=#000000]Sheets.Add.Name = textbox.value[/COLOR][/FONT][/COLOR][/FONT]

I would like to know why when the code is activated, the macro creates 2 sheets, the 1st rename with the textbox value and an other one called ''sheet1"

I just would like a new sheet created with my textbox value

Any idea ?

 

[Domenic]

Your code actually contains instructions to create two sheets. The first line creates a sheet, adds it to the end of the workbook, and gives it a default name. The second line creates another sheet, adds it before the active sheet since you haven't specified where to place it, and then names the sheet using the textbox value.

To create a single sheet, place it at the end of the workbook, and naming it using the textbox value, try...

Sheets.Add(After:=Sheets(Sheets.Count)).Name = TextBox1.Value

Or, alternatively...

With Sheets
    .Add(After:=.Item(.Count)).Name = TextBox1.Value
End With

Hope this helps!

 

[MARK858]

I would like to know why when the code is activated, the macro creates 2 sheets

Because you are using Sheets.Add twice
Either

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = textbox.value

or

Sub AddSht()
 Worksheets.Add(After:=Sheets(Sheets.Count)).Name = textbox.value
End Sub

Where textbox is the actual name of your textbox.


Edit: should have refreshed my screen then would have seen the previous post

 

[Doflamingo]

Hi @Domenic and @MARK858

Many thanks for your reply on that matter.

It works !

Kind regards