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]

Is your combobox on a Userform?

 

[My Aswer Is This]

Now I see your subject title says Userform I did not notice that earlier.

 

[Abdo]

but you did not show me your script.

I think this error is not relating with active sheet , it doesn't show the form because the error . should fill the sheets names in combobox first .I use the code in UserForm_Initialize()

as to ComboBox1_Change() will select the sheet from combobox and will activate the sheet based on selected from combobox

 

[My Aswer Is This]

Now that I see the script and Combobox are being run on a user form try this:

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

 

[My Aswer Is This]

Now that you say on initialize.
Try this:
It does not matter what the active sheet is:

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

 

[My Aswer Is This]

You said this:
as to ComboBox1_Change() will select the sheet from combobox and will activate the sheet based on selected from combobox
Do you need help doing this also.

And why do you need to activate the sheet?
A lot of user's think to do anything to a sheet you need to activate it.
That is not true.
So, after you activate the sheet what do you want to do.
I'm not trying to be noisy but just wondering why you need to activate a sheet while using a Combobox.
See you could write a script which might say.
Sheets Combobox1.value.Range("A1").value="Alpha"
Never needing to activate the sheet.

 

[Abdo]

Now that you say on initialize.
Try this:
It does not matter what the active sheet is:

this is what I look for it.

Do you need help doing this also.

no it's ok
thank you so much .

 

[My Aswer Is This]

this is what I look for it.

no it's ok
thank you so much .

Glad I was able to help you. Comeback here To Mr. Excel next time you need help.