Private Sub UserForm_Initialize()
Dim iCounter As Double
Dim iCount As Integer
Dim arr() As String
iCount = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
ReDim arr(1 To iCount, 1 To 2)
For iCounter = 1 To iCount
arr(iCounter, 1) = Format(DateSerial(Year(Date), _
Month(Date), iCounter), "dd.mm.yy")
arr(iCounter, 2) = ActiveSheets.Cells(1, 1).Value
Next iCounter
cboArray.List = arr
cboArray.ListIndex = 0
End Sub