Sub ReadFromOpenedWorkbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 既に開いているブック名を指定
    Set wb = Workbooks("sample.xlsx")
    
    ' シートを指定
    Set ws = wb.Worksheets("Sheet2")
    
    ' 例：B2セルの値を表示
    MsgBox ws.Range("B2").Value
End Sub