Conditional Shifting Cells to the Left Macros

**undergraduate** · 01-12-2011, 02:56 PM

The following is my last question for today:

In Row B I have a list of dates such as "Dec-31-2006", "Dec-31-2007", "Dec-31-2008","Dec-31-2009".
These dates begin in Cell B5.

I would like to create the following Macros:
If the function Right(B5,4) is less than 2008, delete B5:B21 by shifting cells to the left. Then I want the same condition to run again on the new B5 (from the cells that got shifted in), until there is a point where the function Right(B5,4)=>2008.

I want this Macros to run on all worksheets within my workbook. As a result there are some worksheets that might have an empty B5. I do not want these worksheets to have the macros run on them

Thank you so much for looking at my query.

**undergraduate** · 01-12-2011, 04:37 PM

I have uploaded a sample worksheet showing before and after data in running the previously described macros if it is helpful since I may not have been very clear in my earlier post.

**watersev** · 01-12-2011, 07:20 PM

see attachment, run macro "Less2008"

**undergraduate** · 01-12-2011, 09:13 PM

Hi thanks so much for your help.
I do have one question however.

I found out that some of the B5 cells might have words in it where right(b5)= pure text (all letters), i.e. its not equal to a year (which is a 4 digit number). I was wondering if there is any way to account for this exception , and skip the sheets where Right(b5) is not equal to all numbers.

Sry for not stating this earlier.