what am i doing wrong please with adding a function

[sleepers]

Hi have i done this right as i get a #Name? error

i have put the follows code in the macro sheets and then in the cell at the end of the row for angel gear (as displayed above in image) i have put:

=concatmth(B4:T4,"Jul")
_______________________________________________________________________

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

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

what have i dont wrong please ??

 

[sleepers]

one last question

i have got it workin for the Jul colum

Output is
,3,4,5, , ,8, , , ,12, , , , , ,18, , , ,22, ,24, , ,27,28, ,30,

but when i copied and pasted into next cell to make a Aug column and changed the formula to read
=concatmth(D5:DU5,"Aug")
it came back as a #value error

what am i doing please