見てほしいのがあるんだけど

「…他に何か、質問はありますか？」 勉強会も一段落し、コーヒーブレイクの時間になりました。
ドーナッツを頬張りながら、八木くんが尋ねます。

「あ、八木っちに少し、見てほしいのがあるんだけど」 そう言うと泉先輩は、カバンの中からUSBメモリを取り出します。

「パソコン借りていい？
今、会社で作ってる……リストによる入力補助システムなんだけど…」 彼女はVBEを起動して、開発中のソースコードを表示しました。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ListName As String, ListRange As Range

    ListName = Cells(3, Target.Column).Value

    If リスト範囲設定(ListName, ListRange) = True Then
        '---ここからValidationでリストを設定するでござる

    End If
End Sub

Function リスト範囲設定(ListName As String, ListRange As Range) As Boolean
    Dim r As Long, c  As Long, o As Object

    Worksheets("リスト設定").Activate
    Set o = ActiveSheet.Rows(1).Find(ListName)

    If Not o Is Nothing Then
        c = o.Column
        r = Cells(Rows.Count, c).End(xlUp).Row
        Set ListRange = Range(Cells(2, c), Cells(r, c))
        リスト範囲設定 = True
    End If

    Worksheets("出荷一覧").Activate
End Function