exclude sheet from list of combobox on userform

[Abdo]

Hello
I try excluding specific sheet from combobox on userform but still continue showing
so when populate sheets names in combobox1 should ignore sheets "Home" totally

dim ws as worksheet
If ComboBox1.Value = "" Then Exit Sub
If ws.Name <> "Home" Then
Set ws = Sheets(ComboBox1.Value)
End If
ws.Activate

I hope some body guide me the right way
thanks

 

[My Aswer Is This]

Hello
I try excluding specific sheet from combobox on userform but still continue showing
so when populate sheets names in combobox1 should ignore sheets "Home" totally

dim ws as worksheet
If ComboBox1.Value = "" Then Exit Sub
If ws.Name <> "Home" Then
Set ws = Sheets(ComboBox1.Value)
End If
ws.Activate

I hope some body guide me the right way
thanks

Show me the script you're using to load the sheet names into the combobox
Why not have that script not add that sheet name to the userform combobox

 

[Abdo]

Show me the script you're using to load the sheet names into the combobox

I do in Private Sub ComboBox1_Change()

Why not have that script not add that sheet name to the userform combobox

I'm not sure if you understand me what I want !

I don't want show sheet"Home" in combobox1 .

 

[My Aswer Is This]

Yes I know you do not want Home in the combobox.
Show me the script your using that put Home into the combobox.

 

[Abdo]

I'm not sure what you want to see the in combobox ?!

 

[Akuini]

I try excluding specific sheet from combobox on userform but still continue showing
so when populate sheets names in combobox1 should ignore sheets "Home" totally

Maybe this:

Dim ws As Worksheet
If ComboBox1.Value = "" Then Exit Sub
If UCase(ComboBox1.Value) <> UCase("Home") Then
Set ws = Sheets(ComboBox1.Value)
ws.Activate
End If

 

[Abdo]

Hi Akuini
I try with this

Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
If ComboBox1.Value = "" Then Exit Sub
If UCase(ComboBox1.Value) <> UCase("Home") Then
Set ws = Sheets(ComboBox1.Value)
ComboBox1.AddItem Sheets(ws).Name
ws.Activate
End If

Next ws
        
End Sub

but doesn't fill anything in combobox1 !

 

[My Aswer Is This]

If you want to load all the workbook sheet names into the combobox.
But want to exclude the sheet named "Home then try this script.

Sub RectangleSingleCornerSnipped1_Click()
Dim i As Long
With ActiveSheet.ComboBox1
.Clear
For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Home" Then .AddItem Sheets(i).Name
    Next
End With
End Sub

 

[Abdo]

If you want to load all the workbook sheet names into the combobox.
But want to exclude the sheet named "Home then try this script.

gives error object doesn't support this property

With ActiveSheet.ComboBox1

 

[My Aswer Is This]

gives error object doesn't support this property

With ActiveSheet.ComboBox1

Is your combobox an activex combobox and is it on the same sheet as your running this script from.

Thats why I asked earlier for you to show me the script which did put Home in the combobox but you did not show me your script.
Is the combobox named Combobox1?