Thanks Howard. I had to make one little change though. The

code:
 for $weekday=1 to 7
loop did the stuff every day. Here is what I ended up with:

code:
 
Dim $Group[7]
$Group[0] = ""
$Group[1] = "Group1","Group2","Group3","Group4"
$Group[2] = "Group5"
$Group[3] = "Group6"
$Group[4] = "Group7"
$Group[5] = "Group8"
$Group[6] = ""
$Group[7] = ""


    $weekday = @WDAYNO
    if vartype($Group[$weekday]) = 8192
        for each $Grp in $Group[$weekday]
            if INGROUP($Grp)
                Do Something...
            endif
        next
    else
        if INGROUP($Group[$weekday])
            Do Something...
        endif
    endif
Thanks again to all.