Hi all,

This may sound kinda stupid but what i am trying to do is open all workbooks in a directory
"One at a time" and do the "Windows.Arrange ArrangeStyle:=xlTiled" code on them.

One issue is the workbook where the code is, obviously is open, to start the macro.
This doesn't work because if another workbook opens then there are two windows tiled.
I don't want that.

Another issue is the code saves and closes the workbooks, and since the workbook with the code
is open, that won't work,

So Any Ideas?

Just in case this might somehow work, here is the code i am trying to use.
And i apologize i don't know whose it is.

Sub AllFolderFiles()
    Dim wb As Workbook
    Dim TheFile As String
    Dim MyPath As String
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    'Put folder path next line.
       MyPath = "C:\Documents and Settings\Owner\Desktop\Tiled Testing"
    ChDir MyPath
    TheFile = Dir("*.xls")
    Do While TheFile <> ""
        Set wb = Workbooks.Open(MyPath & "\" & TheFile)
        'Your code goes here.
        Windows.Arrange ArrangeStyle:=xlTiled
        wb.Close SaveChanges:=True
        TheFile = Dir
    Loop
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub