'wb.Name holds the name of the open workbook Dim wb As Workbook For Each wb In Application.Workbooks <code here with involving wb.Name> Next wb
'example Dim wb As Workbook For Each wb In Application.Workbooks 'for each open workbook, pass the name to lookupEGA() MsgBox wb.Name lstWorkbooks.AddItem wb.Name Next wb