Converting String to Date with DateValue, then testing for T/F

[JoshExcel]

hello again.

I am trying to check my sheet names to see if they convert to a valid date format. If it doesn't, then I want it to check for the next criteria (ex - if it equals "Page2"). With the code below I keep getting an error of type mismatch. Any help would be greatly appreciated. Code is below.

Please Login or Register  to view this content.

[protonLeah]

Please Login or Register  to view this content.

[Izandol]

You may also use:

Please Login or Register  to view this content.

[JoshExcel]

ok, maybe I'm just a little thick, but I don't see how that will loop through all the worksheets in the workbook. I may have left that part off in my original post though.

Here is my revised code to try to use what proton suggested.

I still receive the error message of 13 "Type Mismatch" on the "dateTester = DateValue(dateText)". I even tried to call dateTester as a Boolean, then checking for False, but I still get the Mismatch message. All suggestions are welcomed.

Please Login or Register  to view this content.

[JoshExcel]

I even tried to incorporate Izandol's suggestion, but keep getting the type mismatch error.

[Izandol]

Where does error occur using IsDate function?

[JoshExcel]

****well, it usually works better if I remove the ' in order for it to execute that line of code. Updated code soon to follow.

whether I use Not IsDate(dateText), or what I have below, it doesn't loop the way I want it to. Basically, I want it to update all the sheets, unless the text can convert to a date, or if the text = "Effic", "Veps Util", "OU", "Prod" or "Quality". All the other sheets get an extra column added.

Please Login or Register  to view this content.

[JoshExcel]

Here is the functioning code. Thanks Izandol!

Please Login or Register  to view this content.