Hi,
Dim objWb As Workbook

For Each objWb In Application.Workbooks
.....your code here
Next objWb

Hth,
OJ