Article ID: 136094
Article Last Modified on 9/13/2006
Sub Tile_Workbook_Sheets()
For Each sht In Sheets 'Loop through all sheets in the Workbook
sht.Activate 'Activate each sheet in turn
ActiveWindow.NewWindow 'Create a new window for each sheet
Next sht 'Loop until all sheets are selected
Windows.Arrange 'Arrange all windows - defaults to "Tiled"
End Sub
Additional query words: 5.00c howto
Keywords: kbprogramming KB136094