Private Sub ComboBox1_DropButtonClick()
Dim sh As Worksheet
ComboBox1.Clear
For Each sh In ActiveWorkbook.Worksheets
ComboBox1.AddItem sh.Name
Next sh
End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Jim T." wrote in message
...
I am trying to have the workbook tab names come up in a ComboBox on my
cover
sheet and store the value as a string variable for later use. I have tried
using some of the suggestions listed here and modifying them but with no
luck. Any sugestions?