Solved: Extract words

[av8tordude]

Each sheet tab has a the following format...Name (2012)

I have a userform that has to combo boxes...cboName & cboYear

I would like to display....
- only the name in the cboName from the sheet tab
- only the year (without the parenthesis) in the cboYear from the sheet tab

Can someone assist. Thanks

[mdmackillop]

Is this what you are after?
[VBA]Private Sub UserForm_Initialize()
Dim txt As String, sh As Worksheet

For Each sh In Sheets
ComboBox1.AddItem Trim(Split(sh.Name, "(")(0))
txt = Trim(Split(sh.Name, "(")(1))
txt = Left(txt, Len(txt) - 1)
ComboBox2.AddItem txt
Next
End Sub
[/VBA]

[av8tordude]

Thank you mdmackillop. From your example, I was able to create a solution to accomplish what I was looking for. Thank you.