Sub Printsum()
'
' Printsum Macro
'
'
ActiveSheet.Shapes("Button 3").Select
Selection.Characters.Text = "Click to Print Sheet"
ActiveCell.Offset(-6, 1).Range("A1").Select
ActiveWindow.SmallScroll Down:=-25
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 1
Sheets("SUM 1").Select
ActiveCell.Offset(-2, 2).Range("A1").Select
ActiveSheet.Shapes("Button 3").Select
ActiveCell.Offset(0, -4).Range("A1").Select
ActiveSheet.Shapes("Button 3").Select
ActiveWindow.SmallScroll Down:=4
ActiveCell.Select
ActiveWindow.SmallScroll Down:=5
Selection.Characters.Text = "Click to Print Sheet"
ActiveCell.Offset(-6, 1).Range("A1").Select
ActiveWindow.SmallScroll Down:=-1
ActiveWindow.SmallScroll Down:=-2
ActiveWindow.SmallScroll Down:=-3
ActiveWindow.SmallScroll Down:=-4
ActiveWindow.SmallScroll Down:=-5
ActiveWindow.SmallScroll Down:=-6
ActiveWindow.SmallScroll Down:=-7
ActiveWindow.SmallScroll Down:=-8
ActiveWindow.SmallScroll Down:=-9
ActiveWindow.SmallScroll Down:=-10
ActiveWindow.SmallScroll Down:=-11
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.SmallScroll Down:=-13
ActiveWindow.SmallScroll Down:=-14
ActiveWindow.SmallScroll Down:=-15
ActiveWindow.SmallScroll Down:=-16
ActiveWindow.SmallScroll Down:=-17
ActiveWindow.SmallScroll Down:=-18
ActiveWindow.SmallScroll Down:=-19
ActiveWindow.SmallScroll Down:=-20
ActiveWindow.SmallScroll Down:=-21
ActiveWindow.SmallScroll Down:=-22
ActiveWindow.SmallScroll Down:=-23
ActiveWindow.SmallScroll Down:=-24
ActiveWindow.SmallScroll Down:=-25
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 1
Sheets("SUM 1").Select
ActiveCell.Offset(0, -2).Range("A1:B1").Select
ActiveCell.Offset(-2, 2).Range("A1").Select
ActiveCell.Offset(0, -4).Range("A1").Select
ActiveWindow.SmallScroll Down:=-40
ActiveWorkbook.Save
ActiveWindow.SmallScroll Down:=39
Sheets("EST 1").Select
ActiveWindow.LargeScroll Down:=6
ActiveWindow.SmallScroll Down:=-122
Application.Left = 27.25
Application.Top = 32.5
ActiveWindow.SmallScroll Down:=0
ActiveCell.Offset(-183, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "3"
ActiveCell.Offset(-2, 2).Range("A1:D1").Select
ActiveWindow.SmallScroll Down:=96
ActiveWindow.LargeScroll Down:=1
ActiveCell.Offset(174, -4).Range("A1").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1, -1).Range("A1:B1").Select
Selection.Copy
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Existing Cable Plant verification"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveWorkbook.SaveAs Filename:= _
"P:\Teledata\CUSTOMERS\2009 BIDS\2009 bids\VZN School for Deaf\EST 2-10-09.xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.SmallScroll Down:=-5
ActiveCell.Offset(-2, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "140"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
ActiveCell.Offset(1, -3).Range("A1").Activate
Selection.Copy
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
ActiveCell.Offset(-1, 0).Range("A1").Activate
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "260"
ActiveCell.Select
ActiveCell.FormulaR1C1 = "140"
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Existing Cable Plant Verification"
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("SUM 1").Select
ActiveWindow.SmallScroll Down:=1
ActiveCell.Select
ActiveCell.FormulaR1C1 = "19.5%"
ActiveCell.Offset(6, -1).Range("A1").Select
ActiveWindow.SmallScroll Down:=12
ActiveCell.Offset(6, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "14.5%"
ActiveCell.Select
ActiveCell.FormulaR1C1 = "14.6%"
ActiveCell.Offset(-1, -2).Range("A1").Select
ActiveWindow.SmallScroll Down:=-29
ActiveCell.Offset(-25, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "24.5%"
ActiveCell.Select
ActiveCell.FormulaR1C1 = "24%"
ActiveCell.Offset(2, -1).Range("A1").Select
ActiveWindow.LargeScroll Down:=2
ActiveWindow.SmallScroll Down:=-31
ActiveCell.Offset(-2, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "20%"
ActiveCell.Offset(4, 2).Range("A1").Select
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=-31
ActiveCell.Offset(-16, -2).Range("A1").Select
ActiveCell.FormulaR1C1 = "24.9%"
ActiveCell.Offset(6, 2).Range("A1").Select
ActiveWindow.SmallScroll Down:=41
Sheets("EST 1").Select
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "120"
ActiveCell.Offset(2, -1).Range("A1").Select
ActiveWindow.SmallScroll Down:=-103
ActiveCell.Offset(-174, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "2.5"
ActiveCell.Offset(-1, 2).Range("A1:D1").Select
Sheets("SUM 1").Select
ActiveWindow.SmallScroll Down:=-5
ActiveCell.Offset(32, -2).Range("A1").Select
ActiveCell.FormulaR1C1 = "14.7%"
ActiveCell.Offset(5, 3).Range("A1").Select
ActiveWindow.SmallScroll Down:=8
Sheets("EST 1").Select
ActiveWindow.SmallScroll Down:=101
ActiveWindow.SmallScroll ToRight:=2
Application.Width = 705
Application.Height = 396
Application.Left = -2
Application.Top = 24.25
Application.Width = 754.5
Application.Height = 396
ActiveWindow.SmallScroll ToRight:=-4
ActiveWindow.SmallScroll Down:=-8
ActiveCell.Offset(173, -3).Range("A1").Select
ActiveCell.FormulaR1C1 = "100"
ActiveCell.Offset(2, -1).Range("A1").Select
Sheets("EST 1").Select
ActiveCell.Offset(-2, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "96"
ActiveCell.Offset(1, -1).Range("A1").Select
Sheets("SUM 1").Select
Application.Width = 754.5
Application.Height = 219.75
Sheets("EST 1").Select
ActiveWindow.LargeScroll Down:=2
ActiveWindow.LargeScroll ToRight:=2
ActiveWindow.SmallScroll ToRight:=-10
ActiveCell.Offset(-1, 12).Range("A1").Select
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-2
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(1, -5).Range("A1").Select
Sheets("SUM 1").Select
ActiveWindow.SmallScroll ToRight:=-1
Sheets("EST 1").Select
ActiveWindow.SmallScroll ToRight:=-6
ActiveCell.Offset(-2, -6).Range("A1").Select
ActiveCell.FormulaR1C1 = "140"
ActiveCell.Offset(1, 1).Range("A1").Select
Sheets("SUM 1").Select
Application.Width = 754.5
Application.Height = 444
Sheets("EST 1").Select
ActiveWindow.SmallScroll Down:=-57
ActiveWindow.SmallScroll ToRight:=5
Application.Left = 6.25
Application.Top = 17.5
End Sub
Bookmarks