Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Center workbook

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