No Error in Code but thee is no code execution

I am pretty new to VBA but I really don't know why this code isn't working.

I have a column that is always updated with new dates beginning with a new month and year which is then being provided a numeric value in another column on that same row.

For example, for analysis of numbers for June-2016, June will be the first month in the column and be assigned 1. Then for the proceeding 12 months they are incremented by 1 and anything blank or after these 12 months is equal to x. (Feb-2016 = 2, Mar-2016 =3, Apr-2016 = 4....June-2017 =12). And as I mentioned for the next month of July-2016 this will now be assigned a 1 in another column and pattern continues. Will this require a number of different for loops within and if statement?

The code is running with no errors but I don't see any execution of the code. Not sure if I have the if, for and case organized incorrectly?
Any help with this and if possible in making the code more efficient would be greatly appreciated.

Thanks

Please Login or Register  to view this content.

What is this supposed to be checking?

Please Login or Register  to view this content.

As far as I can see VBA will see July as an undeclared, empty variable, so July - 2016 will return -2016.

Are you actually trying to check for a date?

Welcome to the board.

Please take a few minutes to read the forum rules, and then edit your post to remove the picture and post the code in CODE tags.

Then you can tell us what's in the cells you think your testing but aren't, and what you're trying to do.

Thanks.

What do you actually have in Sheets("Portfolio Matrix").Cells(1, 16).Value?

Note, this should be within the loop.

Please Login or Register  to view this content.

I don't see where D is being used in the code or where result or LT come from.