Userform - checkbox

Hello,

I have userfom and I need to tick checkboxes If two cell values in range have string values. I have monthly work schedule for shifts, and checkboxes must be ticked If job is entered.

So, If in E3 is "OP1", and in E4 is "06:18:00", than I want in Userform to be ticked "OP1- daily shift" checkbox.

Problem is that I have this for each days in month, in a range from row 3 to 318, for both cells (E3 and E4) in step 4. Right now I'm struggling with Select case statements, but nothing works

Have tried also to select cells and then perform If statements, but still nothing. Did I even select cells correct ? something like this :

dim lngrow as Long
dim lngrow2 as Long

 For lngRow = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row Step 4

next

For lngrow2 = 6 to .Cells(.Rows.Count, 1).End(xlUp).Row Step 4
next

I have attached Userform, you'll see what I have and what do I need to be changed. Previous checkboxes can be deleted, don't need them anymore. Thanks for any help !!!

Regards