End sub が必要ですというエラー文が出てしまいます

Question

以下のコードを実行するとコンパイルエラーで、End sub が無効ですというエラー文が出てしまいます。
どこに入れればいいかわかりません。よろしくお願いします。

Sub 単体テスト仕様書マクロ()

'Excelファイルを開いてデータを取得
'戻り値：名前|住所　（ | で区切る）
Function File_Load(ByVal wFilePath As String) As String
 
Dim CurBookName As Variant
Dim ColNo       As Long
Dim RowNo       As Long
Dim strValue    As String
Dim FoundCell   As Range
Dim i           As Long
 
'ファイルを開く
Workbooks.Open wFilePath
 
'開いたExcelのファイル名を取得
CurBookName = Application.ActiveWorkbook.Name
 
'検索する項目を配列に格納
wItem = Array("機能（ﾌﾟﾛｸﾞﾗﾑ）名", "テスト件数", "完了数", "不具合件数")
 
 
'検索する
For i = LBound(wItem) To UBound(wItem)
    Set FoundCell = Cells.Find(What:=wItem(i))
    If FoundCell Is Nothing Then
        '検索出来なかった場合
        If i = 0 Then
            strValue = ""
        Else
            strValue = strValue & "|"
        End If
    Else
        '検索したセルに移動
        FoundCell.Select
        ColNo = ActiveCell.Column   '列番号を取得
        RowNo = ActiveCell.Row      '行番号を取得
        '住所を取得する
        If i = 0 Then
            '最初の項目
           Cells(15, 3).Value
           Cells(16, 3).Value
           Cells(18, 3).Value
           
        Else
            '2番目以降の項目は|で区切る
            strValue = strValue & "|" & Cells(RowNo, ColNo + 1).Value
        End If
    End If
    
Next i
 
'結果を返す
File_Load = strValue
     
'開いたExcelファイルを閉じる
Application.DisplayAlerts = False   '確認メッセージの非表示
Workbooks(CurBookName).Close
Application.DisplayAlerts = True    '確認メッセージの表示
 
End Function

Answer 1

Subプロシージャは Subから始まり、End Sub で終わります。
その間に実行したい処理を記述します。

Sub 単体テスト仕様書マクロ()
    ’ここに実行したい処理を記述
End Sub

例えば、次の File_Loadファンクションを呼び出したいのなら、下記のような感じになります。

Sub 単体テスト仕様書マクロ()
    Dim Ret As String

    ret = File_Load("C:\TEST\Test.xlsx")
    MsgBox ret

End Sub

'Excelファイルを開いてデータを取得
'戻り値：名前|住所　（ | で区切る）
Function File_Load(ByVal wFilePath As String) As String

    '以下略

Comments

[Gamagaeru]

ありがとうございました。
本当に助かりました。
また、よろしくお願いします。

Answer 2

おそらくVBAに触れてきたことがない方だと思います。 Function File_Load(ByVal wFilePath As String) As Stringの上にまずEnd Subを書き、Sub 単体テスト仕様書マクロ()を閉じましょう（Sub,End Subは開きカッコと閉じカッコのような関係です、中に別のSubやFunctionは入れられません）
その後、実行したい処理をその間に書きましょう

Sub 単体テスト仕様書マクロ()

'Excelファイルを開いてデータを取得
'戻り値：名前|住所　（ | で区切る）

'
'実行したい処理を書く、以下実行例
'returned_strings = File_Load(ファイルのフルパス)
'MsgBox returned_strings
'


End Sub 


Function File_Load(ByVal wFilePath As String) As String
：
：
：
End Function