Easy way.


Private Sub ComboBox1_Change()
Sheet2.Range("A1") = Sheet1.ComboBox1.Text
End Sub

Private Sub Workbook_Open()
If Sheet2.Range("A1") = "" Then
Sheet1.ComboBox1.Text = "January"
Sheet2.Range("A1") = "January"
Else
Sheet1.ComboBox1.Text = Sheet2.Range("A1")
End If
End Sub

Make sure Sheet2 Cell A1 is formatted as Text


Another way is to write a file using FSO





--

"Christy" wrote in message
...
Thanks.

That workes to get something in the box. How can I make
it remember what is selected next and show that the next
time the workbook is opened?
-----Original Message-----
Try this

Private Sub Workbook_Open()

ComboBox1.Text = "January"

End Sub

--

"Christy" wrote in message
...
I have a combo box set up with the months of the year
using the add item method. Intially, the box appears
empty. How can I make the box appear with a month
already
selected? I would like it start with January, but then
display the month last selected when the user re opens
the program. Any help would be greatly appreciated.


.