Restricting a vba listbox

[KDS14589]

It's been a long day……I have a listbox (code below) on a userform which produces a list of all worksheets in the workbook. But I want that list to not include the active worksheet the userform is called from. It is always called from codename ShGE04 and named General. Switchboard
A image of it is below

Given time I could work this out, but right now time is something I don't have.

Private Sub CommandButton1_Click()

Dim i As Integer, sht As String

For i = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(i) = True Then

sht = ListBox1.List(i)

End If

Next i

Sheets(sht).Visible = True

ShGE04.Visible = False

Sheets(sht).Activate

End

End Sub

 

[NoSparks]

I want that list to not include the active worksheet the userform is called from.

try this in UserForm_Initialize

Dim sh As Worksheet, shtnames As String

For Each sh In ThisWorkbook.Worksheets
    If sh.Name <> ActiveSheet.Name Then
        shtnames = shtnames & "|" & sh.Name
    End If
Next sh

ListBox1.List = Split(Mid(shtnames, 2), "|")

 

[KDS14589]

try this in UserForm_Initialize

Dim sh As Worksheet, shtnames As String

For Each sh In ThisWorkbook.Worksheets
    If sh.Name <> ActiveSheet.Name Then
        shtnames = shtnames & "|" & sh.Name
    End If
Next sh

ListBox1.List = Split(Mid(shtnames, 2), "|")

It works, my problem was I was trying to modify the wrong code, the code for the Go To Worksheet button, as I said it was a long frustrating day.

THANKS