vba - Create Macro With Several Variables -

I have several worksheets with the same code, so I want to convert it to a macro. My only problem is that there are many variables, so at some points the code looks like this:

  String in the form of slow messenger as the MSS 2, the String Public Sub Listbox 1_LostFocus (ListBox1.Height) = 15 listbox 1 message 1 = "'" for i = 0 to listcount - 1 if. Selected (i) Then MGB 1 = MSS 1 & amp; . List (i) & amp; ("R3", "R3") = "Msg1 and sub    / pre> 
 and so on. I for Msg1, Msg2, Msg3 for each worksheet How can I pass a new value? 
 

Create a module and gather in the module below Message in the form of a message (Message as list box) Collect the message as your message. Message end message

To use:

  sheet Range ("R1", "R3") = Archive Message (List Box 1)  

I believe this will be good for you Exercise to complete the details.