Как предать ссылку на массив в другую процедуру - VBA

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

Добрый день, подскажите пожалуйста как реализовать передачу динамической ссылки из одной процедуры в другую? Вот образец запроса, как я пытался реализовать:

Sub A()
Dim name_book As Variant
name_book = ActiveWorkbook.Name
Dim name_sheets As Variant
name_sheets = ActiveWorkbook.ActiveSheet.Name
Dim massiv As Range
massin = Range("A1:C18")
Call B(name_book, name_sheets, massiv)
        
End Sub
 
Sub B(File As Variant, sh As Variant, mas As Variant)
    Debug.Print File
    Debug.Print sh
    Debug.Print mas
    Workbooks(File).Worksheets(sh).Range(mas).Merge
End Sub

Решение задачи: «Как предать ссылку на массив в другую процедуру»

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

                            OPTION EXPLICIT '!!!
Sub A()
Dim name_book As String
name_book = ActiveWorkbook.Name
Dim name_sheets As String
name_sheets = ActiveWorkbook.ActiveSheet.Name
Dim massiv As String 'Range
massiv = "A1:C18"
Call B(name_book, name_sheets, massiv)
End Sub
 
Sub B(File As String, sh As String, mas As String)
Debug.Print File
Debug.Print sh
Debug.Print mas
Workbooks(File).Worksheets(sh).Range(mas).Merge
End Sub
                        