How about:
<font face=Courier New> <SPAN style="color:#00007F">If</SPAN> ListBox1.ListCount > 0 <SPAN style="color:#00007F">Then</SPAN><br> <SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> ListBox1.ListCount<br> ActiveSheet.Cells(i, 1).Value = ListBox1.List(i - 1)<br> <SPAN style="color:#00007F">Next</SPAN> i<br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN></FONT>