Having a problem with my If Leap Year Function

So am creating a macro that inserts a column and part of what it needs to do is to put next years date afterwords. I at first simply had +365 to adjacent cell to get one year later. I then encountered that Excel accounted for leap year so I created this function. =IF(IF(OR(MOD(J3,400)=0,AND(MOD(J3,4)=0,MOD(J3,100)<>0)),"Leap Year","NOT a Leap Year")="Leap Year",J3+366,J3+365). (the previous year being located in J3).
Basically it starts with a function determining whether or not it is leap year and then based on that result either adds 366 or 365. Problem is when I hit 2015 It adds 366 and goes over to 1/1/2016 instead of 12/31/2015. In visual right now I get 12/30/2020 , 12/31/2019 , 12/31/2018 , 12/31/2017 , 12/31/2016 , 1/1/2016 , 12/31/2014 , 12/31/2013 , 12/31/2012 , 12/31/2011 , 12/31/2010. Going from right to left.

Any Ideas on what I'm doing wrong? I'm sure its something stupid.

Try the DateAdd function, it will automatically account for leap years.

Dim MyDate As Date
MyDate = DateAdd("yyyy", 1, Date)

this will add 1 year to today's date (and auto account for leap years)

Originally Posted by Jonmo1

Try the DateAdd function, it will automatically account for leap years.

Dim MyDate As Date
MyDate = DateAdd("yyyy", 1, Date)

this will add 1 year to today's date (and auto account for leap years)

Could you elaberate on this. I am a little confused on how to use this function in the way you described it.

Originally Posted by daddylonglegs

You can use EDATE to add 12 months like this

=EDATE(J3,12)

That will account for leap years automatically

Thanks that works great

Originally Posted by Cruse

Could you elaberate on this. I am a little confused on how to use this function in the way you described it.

That's difficult without more information on what exactly you're doing.

You said you're making a macro, so I posted a VBA solution instead of Cell formula.
But didn't post any code to give an idea of what you're doing.
So I can only give a simple example.

That code creates a variable (Called MyDate) that is equal to the date 1 year from today's date.
And it will automatically account for a leap year.

You just need to then do whatever it was you were doing before, but use that variable instead.

It's pretty much the same as daddylongleg's Edate formula.
but it's based off of Today's date instead of J3