Sub CenterBook()
Dim bookWidth As Integer
Dim bookHeight As Integer
bookWidth = Application.UsableWidth
bookHeight = Application.UsableHeight
ActiveWindow.WindowState = xlNormal
Workbooks("Center.xls").Windows(1).Width = bookWidth
Workbooks("Center.xls").Windows(1).Height = bookHeight
Workbooks("Center.xls").Windows(1).Left = 0
Workbooks("Center.xls").Windows(1).Top = 0
End Sub
|