'Source: Power programming VBA p86-87

Sub CloseInactive()
  Dim Book as Workbook
  For Each Book In Workbooks
    If Book.Name <> ActiveWorkbook.Name Then Book.Close
  Next Book
End Sub