formatting question

[ricksimm]

I use the following code to build a two column array with dollar amounts in the first column and part description in the second column and then display the list.

                        i = 1
                        With Sheets("Main").Range("LBstart")
                                For Each c In Sheets("Main").Range(clientPPT, Sheets("Main").Range(clientPPT).End(xlDown))
                                        .Cells(i, 1) = c.Offset(0, 1).Value
                                        .Cells(i, 2) = c.Value
                                        i = i + 1
                                Next c
                        End With
                        With DetailsListBox
                                .ColumnCount = 2
                                .ColumnWidths = "44pt;200pt"
                                .List = Sheets("Main").Range("LBstart", Sheets("Main").Range("LBstart"). _
                                        Offset(65536 - Range("LBstart").Row, 1).End(xlUp)).Value
                                For i = 0 To .ListCount - 1
                                        .List(i) = Format(.List(i), "#,###.00")
                                Next
                       End With

When the list displays the dollar amounts are not right justified in the first list column. Can someone tell me how to make the dollar amounts right justify? Thanks.

 

[ricksimm]

The HorizontalAlignment = xlRight did not work either.