Помогите пожалуйста со следующим примером

В Папке Новая папка имеется файл "Sheet1". Нужно прочитав содержимое папки открыть 
этот файл

Private Sub Workbook_Open()
    
    Dim fs, f, f1, fc, s
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("D:\Мои документы\Учет сырья\Новая папка")
    Set fc = f.Files
    For Each f1 In fc
        s = s & f1.Name
        s = s & vbCrLf
    Next
    
    
         f = "D:\Мои документы\Учет сырья\Новая папка\" + s  '- здесь выдает ошибку не может найти файл
    
    Workbooks.Open f
    
    
End Sub

' f = "D:\Мои документы\Учет сырья\Новая папка\Sheet1.xls"  - если написать так, то все открывается

Все понял!

Private Sub Workbook_Open()
    
    Dim fs, f, f1, fc, s
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("D:\Мои документы\Учет сырья\Новая папка")
    Set fc = f.Files
    For Each f1 In fc
        s = f1.Name
        f = "D:\Мои документы\Учет сырья\Новая папка\" + s
        Workbooks.Open f
    Next
       
    
End Sub