【VBA】ワークブックを開いてすべてのシートを処理する。それを延々と繰り返す。

Sub ReadAllSheets()

    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ThisWorkbook

    For Each ws In wb.Worksheets
        '好きな処理
        MsgBox ws.Name
    Next ws

End Sub

Sub OpenWbAndReadAllSheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim filePath As String
 
    filePath = SelectExcelFile()

    ' ファイルパスが有効かどうかをチェック
    If filePath = "" Then Exit Sub

    Set wb = Workbooks.Open(filePath)

    For Each ws In wb.Worksheets
        ' 好きな処理
        MsgBox ws.Name
    Next ws

    wb.Close SaveChanges:=False
End Sub

Function SelectExcelFile() As String
    Dim filePath As String
    
    ' ファイルの選択ダイアログを表示し、ファイルパスを取得
    filePath = Application.GetOpenFilename("Excelファイル (*.xls; *.xlsx), *.xls; *.xlsx")
    
    ' ダイアログがキャンセルされた場合は空の文字列を返す
    If filePath = "False" Then
        SelectExcelFile = ""
    Else
        SelectExcelFile = filePath
    End If
End Function

Sub Main()
    Do
        Call ReadAllSheetsAndRepeat
        
        ' ダイアログを表示して、続けるかどうかを聞く
        If MsgBox("続けますか？", vbYesNo) = vbNo Then
            MsgBox "終了します"
            Exit Do
        End If
    Loop
End Sub