code updating - can anyone help

[sleepers]

i have this great code that you guys helped me with before and works fine - now i need it not to show thursday or sunday dates in the output page. These codes set two pages, one that lists just the d in a row and the other that lists the dd d format. see images. i need them to excluse the thu and sun? can anyone help??

Function ConcatMth(rng As Range, item As String, Optional dte = True)
    Application.Volatile
    For Each ce In rng
        If ce <> "" And Sheets(rng.Parent.Name).Cells(2, ce.Column) = item Then
            If dte Then
                holder = holder & Format(ce, "d") & ","
            Else
                holder = holder & ce & ","
            End If
        End If
    Next ce
    ConcatMth = Left(holder, Len(holder) - 1)
End Function




Function ConcatMth2(rng As Range, item As String, Optional dte = True)
    Application.Volatile
    For Each ce In rng
        If ce <> "" And Sheets(rng.Parent.Name).Cells(2, ce.Column) = item Then
            If dte Then
                holder = holder & Format(ce, "ddd d") & ","
            Else
                holder = holder & ce & ","
            End If
        End If
    Next ce
    ConcatMth2 = Left(holder, Len(holder) - 1)
End Function

http://www.whirlwindent.com/help/image1.pdf
http://www.whirlwindent.com/help/image2.pdf

 

[PA HS Teacher]

Change:

holder = holder & Format(ce, "d") & ","

to

If Format(ce.value,"dddd") <> "Thursday" And Format(ce.value,"dddd")<> "Sunday"  then holder = holder & Format(ce.value, "d") & ","