<div>
ListBox1.Clear <br />
Dim c As Long <br />
c = 1 <br />
For Each cll In Range(&quot;Table1&quot;).Columns(1)<wbr />.SpecialCe<wbr />lls(xlCell<wbr />TypeVisibl<wbr />e).Cells <br />
&nbsp; &nbsp; ListBox1.AddItem cll.Value <br />
&nbsp; &nbsp; If Cells(cll, 5).Value &lt;&gt;&nbsp;&quot;&quot; Then <br />
&nbsp; &nbsp; &nbsp; &nbsp; ListBox1.items(c).ForeColo<wbr />r = vbRed <br />
&nbsp; &nbsp; End If <br />
&nbsp; &nbsp; c = c + 1 <br />
Next cll
</div>


ListBox1.Clear
Dim c As Long
c = 1
For Each cll In Range("Table1").Columns(1).SpecialCells(xlCellTypeVisible).Cells
    ListBox1.AddItem cll.Value
    If Cells(cll, 5).Value <> "" Then
        ListBox1.items(c).ForeColor = vbRed
    End If
    c = c + 1
Next cll

<div>
Thanks for your help.<br />
<br />
I load my listbox from an array in one single statement for speed and efficiency.....<br />
<br />
&nbsp; &nbsp;liSales.List = SalesArray()<br />
<br />
Is it possible to act on the listbox items directly, in some way or another? For example......<br />
<br />
&nbsp; &nbsp; &nbsp; If &nbsp;liSales.Items(rowno,colno)<wbr />.Value &lt;&gt;&nbsp;&quot;Invoiced&quot; &nbsp;Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;liSales.Items(row).ForeCol<wbr />or = vbRed<br />
&nbsp; &nbsp; &nbsp; End If<br />
<br />
I tried the above but I couldn't get it to work
</div>


Thanks for your help.

I load my listbox from an array in one single statement for speed and efficiency.....

   liSales.List = SalesArray()

Is it possible to act on the listbox items directly, in some way or another? For example......

      If  liSales.Items(rowno,colno).Value <> "Invoiced"  Then
           liSales.Items(row).ForeColor = vbRed
      End If

I tried the above but I couldn't get it to work

<div>
No further response from members.<br />
I found out elsewhere that Listbox controls cannot be formatted in the way I wish. However ListView controls (an Add-in) are &nbsp;formattable.
</div>


No further response from members.
I found out elsewhere that Listbox controls cannot be formatted in the way I wish. However ListView controls (an Add-in) are  formattable.

<div>
<div class="content wysiwyg-content">
Hi,<br />
<br />
I have an Excel application with an Orders userform containing a listbox. I'd like to highlight the text of those Listbox items which haven't yet been invoiced (I use a status text box to determine this).<br />
<br />
Any ideas ?<br />
<br />
thanks<br />
Toco
</div>
</div>


Hi,

I have an Excel application with an Orders userform containing a listbox. I'd like to highlight the text of those Listbox items which haven't yet been invoiced (I use a status text box to determine this).

Any ideas ?

thanks
Toco

Is it possible to highlight Excel VBA Listbox items in red according to certain criteria ?

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.