populate a listbox with dates

**inno101** · 02-22-2008, 06:02 AM

Hi,

Does anybody know of a way to populate a list box with dates (52 week commencing dates) using VBA coding rather than populating from a list on a worksheet.

Thanks in advance
Mark

**royUK** · 02-22-2008, 06:37 AM

Here's one way

Private Sub UserForm_Initialize()
    Dim w      As Integer
    Dim dte    As Date

    dte = CDate(39454)    '07/01/08
    With Me.ListBox1
        .AddItem Format(dte, "dd/mm/yyyy")
        For w = 2 To 52
            dte = dte + 7
            .AddItem Format(dte, "dd/mm/yyyy")
        Next w
    End With
End Sub