:Hi,
I am writing this from an example from Debrah's web site: I am not sure how
to test it to see if it works. When I try it says sub error?
Private Sub UserForm_Initialize()
txtMonth.Value = Date
Function StartOfMonth(InputDate)
If IsDate(InputDate) Then
StartOfMonth = DateSerial(Year(InputDate), _
Month(InputDate), 1)
Else
StartOfMonth = Empty
End If
End Function

--
Though daily learning, I LOVE EXCEL!
Jennifer