1: 2: 3: 4: 5: 6: 7: 8:
Dim wkb As Workbook For Each wkb In Workbooks If wkb.Name Like "*MACESS.xls" Then ' found it! Debug.Print wkb.Name Exit For End If Next wkb