Function that returns the number of a given day of the week in a given month

hae you tried the weekday() function? oops misread post

there is also this udf from ozgrid

http://www.ozgrid.com/VBA/excel-days-month-amount.htm

Function HowManyDaysInMonth(FullDateAs String, sDay As String) As Integer

Dim i As Integer

Dim iDay As Integer, iMatchDay As Integer

Dim iDaysInMonth As Integer

Dim FullDateNew As Date



	iMatchDay = Weekday(FullDate)

		Select Case UCase(sDay)

 			Case "SUN"

				iDay = 1

			Case "MON"

				iDay = 2

			Case "TUE"quot;

				iDay = 3

			Case "WED"

				iDay = 4

			Case "THU"

				iDay = 5

			Case "FRI"

				iDay = 6

			Case "SAT"

				iDay = 7

			End Select

			

	iDaysInMonth = Day(DateAdd("d", -1, DateSerial _

		(Year(FullDate), Month(FullDate) + 1, 1)))

		

	FullDateNew = DateSerial(Year(FullDate), Month(FullDate), iDaysInMonth)

	

	For i = iDaysInMonth - 1 To 0 Step -1

		If Weekday(FullDateNew - i) = iDay Then

			HowManyDaysInMonth = HowManyDaysInMonth + 1

		End If

	Next i

End Function