Selecting Sheets vidth Userform/Listbox trouble

[tryagain]

Hi experts im giveing up, ned help on this one


Got a Userform width a ListBox
ListBox1 is populated width Sheet names (6) Ark1,Ark2,Ark3,Ark4,Ark5 and Ark6
In the ListBox1 i check out which Sheet to select
Trouble is that the code below not only select my shoice in ListBox1 but also
the sheet that was active when i started up Userform
eg.:
Sheet Ark1 is active.
Now i run code and select Ark2 and Ark4 in the Listbox
But when i finish Sheet "Ark1 is still selected together width Ark2 and Ark4
How do i prevent sheet "Ark1" been selcted too ????
eg.:

If i select sheet Ark3 and run code and select Ark1 and Ark5 in ListBox1
then its ok only Ark1 and Ark5 is selected !!!

Private Sub UserForm_Click()
Dim t As Integer
Dim flag As Boolean
flag = True
For t = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(t) = True Then Sheets(Me.ListBox1.List(t)).Select flag
flag = False
Next
End Sub


Thanks in advance

 

[Norie]

Try this.

Dim strSheets As String
Dim t As Long
    
    For t = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(t) = True Then
            If strSheets = "" Then
                strSheets = Me.ListBox1.List(t)
            Else
                strSheets = strSheets & "," & Me.ListBox1.List(t)
            End If
        End If
    Next t
    
    Sheets(Split(strSheets, ",")).Select

 

[tryagain]

Hi Norie
Perfect solution thanks a lot ill use it for sure

But still wondering why my code not working, well newer mind i got one now lol

thanks again

Poul

 

[Norie]

Poul

This isn't quite in the right position.

flag = False

You only want to set flag to False once the first sheet has selected, so try this.

Dim strSheets As String
Dim t As Long
Dim flag As Boolean

    flag = True
    
    For t = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(t) = True Then
            Sheets(Me.ListBox1.List(t)).Select flag
            flag = False
        End If
    Next t

 

[tryagain]

whooo i was pretty close right..