Function DayDate(DayToFind As String, yr As Integer, Mn As Integer, Dy As Integer) As String
Dim Dt As Date
Dim Dayy As String
Dt = DateValue(yr & "/" & Mn & "/" & Dy)
Dayy = Format(Dt, "DDDD")
Do While Dayy <> DayToFind
Dy = Dy + 1
Dt = DateValue(yr & "/" & Mn & "/" & Dy)
Dayy = Format(Dt, "DDDD")
Loop
DayDate = Format(Dt, "DD-MMM-YYYY")
End Function
See my mini-blog article here for a general solution for any given month...Just in case someone asks for a different first day in a year could you explain to an idiot how this actually works.