Awesome, thank you! I learned something new and this is much cleaner!
For future users I had to modify case 4 as shown below.
Case 4
Me.[TSKlookup subform].Form.Filter = "(DatePart('ww', [DueDate]) = DatePart('ww', Date()) )"
Works perfect, Minty I truly appreciate the help!