【VBA：Controls】コンパイルエラー：SubまたはFunctionが定義されていません

Question

VBAにてコンパイルすると
【コンパイルエラー：SubまたはFunctionが定義されていません】
というエラーが**【Controls】**の箇所で発生しています。
対処のしかたがわからず困惑しています。
ご教示お願い致します。

やりたい内容は以下の通りです。

求めた平均値をユーザーフォームのラベルに書き込むという
プログラムをVBAで書いています。

UserForm1には複数のLabelがあり
Label1
Label2
Label3
.
.
.
のように連番でラベルが配置されています。
ラベルの番号だけを指定して平均値を書き込む（例　Call TOUKU(1)　）
といった関数を以下のように作成したのですが上記エラーが発生しています。

Public Function TOUKOU(LABEL_No As Long) As Boolean

TOUKOU = False


Dim RNG As Range  '平均値を求める範囲【RNG】
Set RNG = Worksheets("Sheet1").Range(Cells(3, 1), Cells(1000, 1))


Dim LABEL1 As Object '平均を記入するラベル【LABEL1】
Set LABEL1 = Controls("Label" & LABEL_No)



'平均値をユーザーフォームのラベルに書き込む

Dim AVE1 As Long  '平均値【AVE】

    With Application.WorksheetFunction
        AVE1 = .Average(RNG)
         UserForm1.LABEL1.Caption = AVE1
    End With

TOUKOU = True
   
End Function

Answer 1

こうですかね。

Public Function TOUKOU(LABEL_No As Long) As Boolean

TOUKOU = False


Dim RNG As Range  '平均値を求める範囲【RNG】
Set RNG = Worksheets("Sheet1").Range(Cells(3, 1), Cells(1000, 1))


Dim LABEL1 As Object '平均を記入するラベル【LABEL1】
Set LABEL1 = UserForm1.Controls("Label" & LABEL_No)



'平均値をユーザーフォームのラベルに書き込む

Dim AVE1 As Long  '平均値【AVE】

    With Application.WorksheetFunction
        AVE1 = .Average(RNG)
         LABEL1.Caption = AVE1
    End With

TOUKOU = True

End Function

Comments

[riko]

ご回答ありがとうございます。

実際に使用させて頂いたところうまくいきました。
素早い正確な回答ありがとうございます。
大変勉強になりました！！