Private Sub UserForm_Initialize()
Dim Ws 'sayfa adı sil
With ListBox1
    .MultiSelect = fmMultiSelectExtended
    For Each Ws In Worksheets
        .AddItem Ws.Name
    Next Ws
End With
End Sub

ListBox1.ColumnCount = 4 'listbox sutün sayısını belirler
ListBox1.ColumnWidths = "100;125;100" 'listbox sutün aralığını belirler
Dim sayfa As Worksheet
For Each sayfa In ThisWorkbook.Worksheets
    If sayfa.Name <> "VERİ" And sayfa.Name <> "yenimüşteri" Then
        ListBox1.AddItem
        ListBox1.List(ListBox1.ListCount - 1, 0) = sayfa.Name
    End If
Next sayfa
TextBox1.SetFocus