userform listbox

The reason i asked about the way that you where populating the list, if you where using an array or other methods this may be an *** about way of doing things.

Try the other responce, Cheers for cutting my grass. Ill just go back behind my rock. Kidding.

Dim X As Long
Dim Listqty As Long
Range("B1").Clear
    Listqty = ListBox1.ListCount - 1
    For X = 0 To Listqty
        Range("B1").value = ListBox1.List(Listqty)
        ThisWorkbook.Sheets(1).PrintOut
    Next X

This is a simple loop., The way it works is using a variable to store the number of items that have been populated in the list,this number is retirved be using listbox.listcount. Though rember that the placement of the listbox stars at 0 and not 1. Thats why the varaible is -1 and the loop starts at 0.
Then its just a matter of changing the cell.value and using the printout function to print the sheet.