Can't figure out what I'm doing wrong - VBA help

I'm a noob at VB, and totally self taught. The following code is for a time sheet, which automatically fills in the shift based on the date. There are 4 possible schedule patterns, Day Shift, Night Shift, Daywork and Daywork Training. It looks on a hidden sheet that has the shift pattern in the cells and the shift type represented by:

D = Day shift
N= Night Shift
DW = Daywork (8 hr Mon-Fri)
DT = Daywork Training

They all work except for the final one (Daywork Training), which fills in ALL the slots on the timesheet, as if all shifts were selected. I'm pulling my hair out, because it's the exact same IF-THEN format as the other schedules, but it doesn't work. Any help is appreciated. (I know there are probably more efficient ways to write this code, bbut like I said, I'm a self taught noob)

I hope I explained this well enough.

Please Login or Register  to view this content.

Hello tedkord,

To help you with this problem, you need to post your workbook.

This allows solutions to be tested using your code and not on code recreated based on your post.
If your workbook contains any sensitive information, please redact that information before you post.

How To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.