vba help

I ve got the following issue. I need to make a working schedule every week. And If a person works more than 6 days in a row (for example marin in the sample data) then I want a messagebox to pop up saying - the employee(name) has reached 6 days in a row. For convenience I ve created the schedule so that you can select it in a current region. I know that a loop needs to be used.

Thanks

I would just use conditional formatting. Select F5:U9 and use a formula of

=AND(F5<>"-",COUNTIF($A$5:F$9,F5)>=6)

and set the format.