Include selected sheets in a ListBox

Status
Not open for further replies.

olem

New Member
Joined
Oct 1, 2006
Messages
12
I try again!!! Well I use a form to list all sheets in a wokbook and it is like this:

Private Sub UserForm_Initialize()
Dim objSheet As Object
CommandButton1.Caption = "Ok"
CommandButton2.Caption = "Cancel"

With frmOle.ListBox1
For Each Item In Sheets
.AddItem Item.Name
Next
.Selected(0) = True
.SetFocus
End With

End Sub

However this list all sheets, but I just want to list those sheets wich have the name "plan" + "number" (e.g. plan 1, plan 2, plan 3 etc...). How can I do that????

Regards
olem
 

Some videos you may like

Excel Facts

How to show all formulas in Excel?
Press Ctrl+` to show all formulas. Press it again to toggle back to numbers. The grave accent is often under the tilde on US keyboards.

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
75,946
Office Version
  1. 365
Platform
  1. Windows
Try this.
Code:
Private Sub UserForm_Initialize()
Dim objSheet As Object
CommandButton1.Caption = "Ok"
CommandButton2.Caption = "Cancel"

With Me.ListBox1
     For Each objSheet In Sheets
          If UCase(Left(objSheet.Name, 4))="PLAN" Then
              .AddItem objSheet.Name
          End If
     Next   
     .Selected(0) = True
     .SetFocus
End With

End Sub
 

DominicB

Well-known Member
Joined
Oct 3, 2005
Messages
1,569
Good evening

How about this :

Code:
Private Sub UserForm_Initialize()
Dim objSheet As Object
CommandButton1.Caption = "Ok"
CommandButton2.Caption = "Cancel"

With frmOle.ListBox1
For Each Item In Sheets
If Left(Item.Name, 4) = "Plan" Then
.AddItem Item.Name
End If
Next
.Selected(0) = True
.SetFocus
End With

End Sub

HTH

DominicB
 
Status
Not open for further replies.

Watch MrExcel Video

Forum statistics

Threads
1,114,674
Messages
5,549,358
Members
410,910
Latest member
DessertDiva
Top