Обращение к UserForm(i) из Module - VBA

Формулировка задачи:

Добрый день Вопрос: можно ли из модуля обращаться к разным UserForm(i) ? много окон где используется одно и тоже заполнение - ListView1, мысль такая - что сделать один модуль и вызывать его из разных UserForm(i) , вот пример модуля с обращением к 2-ой UserForm ... а как сделать что б можно было по переменной менять обращение другим UserForm(i)? как-то кажется не правильным в каждом UserForm(i) вставлять большой кусок заполнения по одному и тому же образу и подобию. Спасибо

Sub ttt()
 
Dim w As Integer
    
UserForm2.ListView1.View = lvwReport
UserForm2.ListView1.ColumnHeaders.Add 1, , "новое", 45
UserForm2.ListView1.ColumnHeaders.Add 2, , "0-й", 25
UserForm2.ListView1.ColumnHeaders.Add 3, , "1-й", 25
UserForm2.ListView1.ColumnHeaders.Add 4, , "2-й", 25
UserForm2.ListView1.ColumnHeaders.Add 5, , "3-й", 25
 
For w = 1 To 10
 
UserForm2.ListView1.ListItems.Add Text:="7777"
UserForm2.ListView1.ListItems(w).SubItems(1) = "999"
UserForm2.ListView1.ListItems(w).SubItems(2) = "999"
UserForm2.ListView1.ListItems(w).SubItems(3) = "999"
UserForm2.ListView1.ListItems(w).SubItems(4) = "999"
 
Next w
End Sub

Решение задачи: «Обращение к UserForm(i) из Module»

textual
                            Листинг программы 
                        

                            Sub ttt(ListView1)
 
Dim w As Integer
 
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add 1, , "новое", 45
ListView1.ColumnHeaders.Add 2, , "0-й", 25
ListView1.ColumnHeaders.Add 3, , "1-й", 25
ListView1.ColumnHeaders.Add 4, , "2-й", 25
ListView1.ColumnHeaders.Add 5, , "3-й", 25
 
For w = 1 To 10
 
ListView1.ListItems.Add Text:="7777"
ListView1.ListItems(w).SubItems(1) = "999"
ListView1.ListItems(w).SubItems(2) = "999"
ListView1.ListItems(w).SubItems(3) = "999"
ListView1.ListItems(w).SubItems(4) = "999"
 
Next w
End Sub
                        