Dim dt as Date, dt1 as Date
dt = cDate(Combobox1.Value)
dt1 = DateSerial(year(date),month(date)+1,1)
Combobox2.Value = format(dt1,"mmm-yy")


--
Regards,
Tom Ogilvy

"steveshos" wrote
in message ...

Hi,

I am building a user form for a journal entry sheet. I am trying to
use the next index value in user chosen combo field. for example, if
the user choices Jan-06 from a combo box, I want the reverse date to be
automatically chosen as 'feb-06. any ideas


--
steveshos
------------------------------------------------------------------------
steveshos's Profile:
http://www.excelforum.com/member.php...o&userid=29585
View this thread: http://www.excelforum.com/showthread...hreadid=492854