No Rick, I endorse your code, just warning about creating a False date with
a string, like Ron mentioned could happen but would not really be a
"recognized" date by Excel.
"Rick Rothstein" wrote in message
...
Did you mean your message to be a response to my posting? If so, that is
not what my code does. If you are not sure, try it out... it will not
produce Feb 29th in any year.

--
Rick (MVP - Excel)


"Mike Fogleman" wrote in message
...
Be careful if you extract the year and add 1 to it. You wouldn't want Feb
29, 2008 to become Feb 29, 2009. Add the 365 days to the Date instead of
changing the year.
Mike F
"Rick Rothstein" wrote in message
...
Here is one way (although I'm not sure what event procedure you will
want to put it in)...

Dim D As Date
If IsDate(TextBox32.Text) Then
D = CDate(TextBox32.Text)
TextBox33.Text = D + 365 - (Day(D) < Day(D + 365))
End If

--
Rick (MVP - Excel)


"Corey ...." wrote in message
...
How can i ADD 1 year to Textbox32's date entered and have it placed
into Textbox33 ?

Private Sub TextBox32_AfterUpdate()
TextBox32.Text = Format(TextBox32.Text, "ddd dd mmmm yyyy")
If TextBox32.Value < "" Then TextBox33.Value = TextBox32.Value ' <===
Gives me an error
End Sub

Corey....