Создать макрос с несколькими переменными

Question

У меня есть несколько таблиц с похожим кодом, поэтому я хотел бы превратить его в макрос. Моя единственная проблема в том, что есть несколько переменных. Поэтому в определенные моменты код выглядит так:

Dim Msg1 As String
Dim Msg2 As String

Public Sub ListBox1_LostFocus()
ListBox1.Height = 15
With ListBox1
Msg1 = "'"
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            Msg1 = Msg1 & .List(i) & "','"
        End If
    Next i
End With
Msg1 = Left(Msg1, Len(Msg1) - 2)
Sheets("Sheet1").Range("R3", "R3") = Msg1
End Sub

и так далее. Как я могу передать новое значение для Msg1, Msg2, Msg3 для каждого листа?

Answer 1

Создайте модуль и поместите собранное сообщение ниже в этот модуль

public function gathermessage(list as listbox) as string
    'generate your message
    gathermessage = msg
end function

использовать:

Sheets("Sheet1").Range("R3", "R3") = gathermessage(listbox1)

Полагаю, для вас было бы неплохо разобраться в деталях.