VBA - 別のマクロで定義されたベクトルから値を呼び出す

Question

問題は次のとおりです。 - あるマクロで定義されたベクトルがあり、別のマクロでベクトルから値を呼び出そうとします。すべてのオブジェクトが公開されているにもかかわらず、2番目のマクロはベクトルと協調しません。どんな方法をとってもいただきありがとうございます。

私のコードは以下の通りです：

Public qj As Integer 
Public pp_ii(5) As Variant 

Public Sub Loop_over_pp() 
Dim myarray As Variant 
    pp_ii = Array(51, 52, 53, 54, 55) 
    For qj = 0 To UBound(pp_ii) 
     Call Macro1 
    Next qj 
End Sub 

Public Sub Macro1() 
    Worksheets("List1").Range("A" & qj) = pp_ii(qj) 
End Sub 

Answer 1

ソリューション：

Public qj As Integer 
Public pp_ii() As Variant 

Public Sub Loop_over_pp() 
    pp_ii = Array(51, 52, 53, 54, 55) 
    For qj = 0 To UBound(pp_ii) 
    Call Macro1 
Next qj 
End Sub 

Public Sub Macro1() 
Worksheets("List1").Range("A" & qj + 1) = pp_ii(qj) 
End Sub