Как из перечня выбрать нужные компании и вывести их названия

Sub Çàïîëíåíèå2(NameList As String)
Dim Company As Range
Dim n As Object
Set Company = Application.InputBox(Prompt:="Âûáåðèòå êîìïàíèþ", Title:="", Type:=8)
For Each n In Company.Name
MsgBox n.Name
Next n
End Sub

Sub Çàïîëíåíèå2()
Dim Company As Range 'ïåðåìåííàÿ äëÿ íàçâàíèÿ êîìïàíèè
Dim Number As Range 'Переменная для ввода периода
Dim k As Range ' äèàïîçîí ñòîëáöîâ
Dim n As Object
Dim massiv()
Dim result 'ïåðåìåííàÿ äëÿ îòêðûòèÿ íóæíîé êíèãè
Dim Rng 'ïåðåìåííàÿ äëÿ ââîäà çíà÷åíèé
Dim i 'ñ÷åò÷èê ñòðîê â ïðèìåðå
Dim z As String 'ïåðåìåííàÿ äëÿ íàèìåíîâàíèÿ ïîêàçàòåëÿ
Dim p As String 'ïåðåìåííàÿ äëÿ íàèìåíîâàíèÿ ïåðèîäà
 
massiv = Array(6, 7, 8)
 
Set Company = Application.InputBox(Prompt:="Âûáåðèòå êîìïàíèþ", Title:="", Type:=8) '÷èñòî äëÿ äèñöèïëèíèðîâàíèÿ ïîëüçîâàòåëÿ
 
 
Set Number = Application.InputBox(Prompt:="Âûáåðèòå ïåðèîä", Title:="", Type:=8)
 
result = Application.GetOpenFilename("All Files (*.*),*.*")
If result = False Then Exit Sub
  
    Workbooks.Open result
 
    For i = LBound(massiv) To UBound(massiv)
      'For Each n In Company.Name '???????
        For Each k In Number.Columns
            z = Workbooks("ïðèìåð.xlsm").Worksheets("Ëèñò1").Cells(massiv(i), 1).Value 'çàïîìèíàåò ÷òî íóæíî ââîäèòü
            p = Workbooks("ïðèìåð.xlsm").Worksheets("Ëèñò1").Cells(4, k.Column).Value 'çà êàêîé ïåðèîä
            Set Rng = Application.InputBox(Prompt:=n.Name & z & " " & p, Title:="", Type:=8) '???????âîïðîñ â ÷àñòè n.Name Íóæíî ÷òîáû ïðè çàïðñîå âûâîäèëîñü íàçâàíèå êîìïàíèè.
            Rng.Worksheet.Activate
            Workbooks("ïðèìåð.xlsm").Worksheets("Ëèñò1").Cells(massiv(i), k.Column) = Rng.Value
        Next k
      'Next n
    Next i
 
End Sub

Set Company = Application.InputBox(Prompt:="Выберите компанию", Title:="", Type:=8) 
Set Number = Application.InputBox(Prompt:="Выберите период", Title:="", Type:=8)

z = Workbooks("пример.xlsm").Worksheets("Лист1").Cells(massiv(i), 1).Value ' переменная для показателей, которые нужно заполнить (ячейки А6:А8) 
p = Workbooks("пример.xlsm").Worksheets("Лист1").Cells(4, k.Column).Value ' переменная для периода (план 2012, факт 2012 и т.д.)

Rng = Application.InputBox (Prompt:="НАЗВАНИЕ КОМПАНИИ" & z & " " & p, Title:="", Type:=8)