Userform Listbox column date format

[vhdhfox]

Hi,

I have a listbox with 14 columns and in column 1(0) I have a date which I have code that does work but only for the first row as shown below

and the code im using

Sub UserForm_Initialize()
    Dim lindex&
    Dim rngMultiColumn As Range
    Set rngMultiColumn = ThisWorkbook.Worksheets("Sheet1").Range("A4:N100")
        With Me.AllocateBox1
        .ColumnCount = 14
        .ColumnWidths = "40;50;50;80;35;30;30;90;60;70;75;85;30"
        .List = rngMultiColumn.Cells.Value
        .List(lindex, 0) = (Format((.List(lindex, 0)), "dd-mmm"))
        End With
    
End Sub

 

[Fluff]

How about

Sub UserForm_Initialize()
   Dim lIndex As Long
   Dim rngMultiColumn As Range
   Set rngMultiColumn = ThisWorkbook.Worksheets("Sheet1").Range("A4:N100")
   With Me.AllocateBox1
      .ColumnCount = 14
      .ColumnWidths = "40;50;50;80;35;30;30;90;60;70;75;85;30"
      .List = rngMultiColumn.Cells.Value
       For lIndex = 0 To .ListCount - 1
          .List(lIndex, 0) = Format(.List(lIndex, 0), "dd-mmm")
       Next lIndex
   End With
    
End Sub

 

[vhdhfox]

Thank you Fluff that works perfectly

 

[Fluff]

You're welcome & thanks for the feedback.