Adding currency format to ListView columns

Format the value before adding it.

Set LstItem = Me.ListView1.ListItems.Add(Text:=Format(rngData(i, 1).Value, "currency"))

or

Set LstItem = Me.ListView1.ListItems.Add(Text:=Format(rngData(i, 1).Value, "#,##0.00"))

Same with the ListSubItems