Hi all

I have a Userfrom with a List View, below code loads list view items from an excel sheet, it has 24 columns

how do I add currency format below code that List view columns 7,8,9,10,11,12,13,14 shows as currency

any help will be apricated

Private Sub LoadListView()

    'Declare the variables
    Dim wksSource As Worksheet
    Dim rngData As Range
    Dim rngCell As Range
    Dim LstItem As ListItem
    Dim RowCount As Long
    Dim ColCount As Long
    Dim i As Long
    Dim j As Long
    
    'Set the source worksheet
    Set wksSource = Worksheets("Sheet1")
    
    'Set the source range
    Set rngData = wksSource.Range("A1").CurrentRegion
    
    'Add the column headers
    For Each rngCell In rngData.Rows(1).Cells
        Me.ListView1.ColumnHeaders.Add Text:=rngCell.Value, Width:=90
    Next rngCell
    
    'Count the number of rows in the source range
    RowCount = rngData.Rows.Count
    
    'Count the number of columns in the source range
    ColCount = rngData.Columns.Count
    
    'Fill the ListView
    For i = 2 To RowCount
        Set LstItem = Me.ListView1.ListItems.Add(Text:=rngData(i, 1).Value)
        
        For j = 2 To ColCount
            LstItem.ListSubItems.Add Text:=rngData(i, j).Value
             
        Next j
    Next i
   
      
End Sub

many thanks in advance