Formatting data in a listbox

Hi y'all,

I am populating a listbox with 5 columns using this code:

Private Sub ListBox1_GotFocus()
Dim vList As Variant

With ThisWorkbook.Sheets("Handelsbanken")
  vList = .Range("b3", .Range("b3").End(xlDown).End(xlToRight))
End With

Me.ListBox1.List = vList
End Sub

It works fine, however the formatting is ugly. I would like column 1 & 5 to be a date DD-MM-YYYY and column 2-4 to be number with commastyle (x.xxx,xx).

Is this possible?

Thanks for your time!!

Kind regards
KRAND

I'd guess that you lose your formatting when you put the cell range into a variant variable. Can you do it like this instead?

Private Sub ListBox1_GotFocus()

Me.ListBox1.ListFillRange = ThisWorkbook.Sheets("Handelsbanken").Range("b3", ThisWorkbook.Sheets("Handelsbanken").Range("b3").End(xlDown).End(xlToRight))

End Sub

Note: this may affect whether your list is dynamically updated as those cells change.