cycle open workbooks find one with specific sheet name

[HWL]

I need to cycle through all open workbooks and find the one with a specific sheet name. Fortunately the sheet appears to always be in the sheet1 position.

Any idea how to VBA this?

 

[HWL]

answered my own question:

Dim wb As Workbook
For Each wb In Application.Workbooks
If wb.Sheets(1).Name = "tblApproval" Then
sbook = wb.Name
End If
Next wb
MsgBox Workbooks(sbook).Sheets(1).Cells(1, 1)