How to add new sheet name onto userform combobox?

[TRY369]

Hi all,
So i have this userform which can creates new sheet upon clicking a button. But at the same time i have a combobox which also shows the name of the sheet list.
However, I was not able to display the newly created sheets name onto the userform combobox.

This is my current code

Private Sub UserForm_Initialize()

    For Each ws In Worksheets
        If ws.Name <> "LogBook" Then
            Me.ComboBox1.AddItem ws.Name
        End If
    Next ws
  
End Sub

Anyone has any idea?

 

[My Aswer Is This]

Hi all,
So i have this userform which can creates new sheet upon clicking a button. But at the same time i have a combobox which also shows the name of the sheet list.
However, I was not able to display the newly created sheets name onto the userform combobox.

This is my current code

Private Sub UserForm_Initialize()

    For Each ws In Worksheets
        If ws.Name <> "LogBook" Then
            Me.ComboBox1.AddItem ws.Name
        End If
    Next ws
 
End Sub

Anyone has any idea?

The code you showed only runs when you open the Userform.
So if you have a script on the Userform that creates new sheets you will have to close the userform and next time you open Userform you should get all your sheet names loaded into the combobox. It works for me.

 

[TRY369]

I do have a script for creating sheets, but after i created a sheet on userform, I want the new sheet name to appear onto the combobox without having to close the application/userform..

 

[My Aswer Is This]

I do have a script for creating sheets, but after i created a sheet on userform, I want the new sheet name to appear onto the combobox without having to close the application/userform..

Show me the script that creates new sheets.

 

[TRY369]

Dim ws As Worksheet
Dim wsM As Worksheet
Dim strName As String
Dim bCheck As Boolean

On Error Resume Next
Set wsM = Sheets("MasterList")
        strName = Format(Date, "yyyy")
        bCheck = Len(Sheets(strName).Name) > 0

    If bCheck = False Then

        wsM.COpy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = strName
    End If

So basically this script is duplicating the masterlist and naming into a new year

 

[My Aswer Is This]

You could add a line like this to your script:
ComboBox1.AddItem StrName

 

[TRY369]

You could add a line like this to your script:
ComboBox1.AddItem StrName

Works wonderfully!! Thanks alot for your help!

 

[My Aswer Is This]

Works wonderfully!! Thanks alot for your help!

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.