Hvordam tilføjer jeg til en Listbox

Prøv denne:

Dim wSht As Worksheet
Dim sHoldName() As String
Dim i, x As Integer

x = ActiveWorkbook.Sheets.Count
ReDim sHoldName(x)

    For Each wSht In ActiveWorkbook.Worksheets
    sHoldName(i) = wSht.Name
    i = i + 1
    Next wSht

ActiveSheet.ListBox1.List = sHoldName