Sub WritePrn()
'
' Macro4 Macro
' Macro recorded 8/6/2001 by Tirso B. Paris, Jr.
'
' Keyboard Shortcut: Ctrl+p
'
Sheets("HHModule").Select
Range("A1:J30").Select
ActiveWorkbook.SaveAs Filename:="C:\Apsm20\hhmodule.prn", FileFormat:= _
xlTextPrinter, CreateBackup:=False
Sheets("Options").Select
End Sub
Sub GOTOAPPLEV()
'
' GOTOAPPLEV Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="LevApp"
ActiveWindow.LargeScroll Down:=2
Application.Goto Reference:="LevApp"
End Sub
Sub GOTOTITLES()
'
' GOTOTITLES Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="TITLES"
End Sub
Sub GOTOOPTS()
'
' GOTOOPTS Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="RUNOPTS"
ActiveWindow.LargeScroll Down:=1
Application.Goto Reference:="RUNOPTS"
End Sub
Sub GOTOPOLVARS()
'
' GOTOPOLVARS Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="POLVARS"
ActiveWindow.LargeScroll Down:=1
Application.Goto Reference:="POLVARS"
End Sub
Sub GOTOFXASS()
'
' GOTOFXASS Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
Application.Goto Reference:="FOREXASS"
ActiveWindow.LargeScroll Down:=1
Application.Goto Reference:="FOREXASS"
End Sub
Sub GOTOLIVOPTS()
'
' GOTOLIVOPTS Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="LIVOPTS"
ActiveWindow.LargeScroll Down:=1
Application.Goto Reference:="LIVOPTS"
End Sub
Sub GOTOLU()
'
' GOTOLU Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="LU"
ActiveWindow.LargeScroll Down:=1
Application.Goto Reference:="LU"
End Sub
Sub GOTOFT()
'
' GOTOFT Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="FT"
ActiveWindow.LargeScroll Down:=1
ActiveWindow.LargeScroll Down:=1
Application.Goto Reference:="FT"
End Sub
Sub GOTOMAVASS()
'
' GOTOMAVASS Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="MAVASS"
ActiveWindow.LargeScroll Down:=1
ActiveWindow.LargeScroll Down:=1
Application.Goto Reference:="MAVASS"
End Sub
Sub GOTOIRRIG()
'
' GOTOIRRIG Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="IRRIG"
End Sub
Sub GOTOWORLD()
'
' GOTOWORLD Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="WORLDPRICES"
ActiveWindow.LargeScroll Down:=1
ActiveWindow.LargeScroll Down:=1
Application.Goto Reference:="WORLDPRICES"
End Sub
Sub GOTOPRDETOPTS()
'
' GOTOWORLD Macro
' Macro recorded 4/13/2005 by Tirso B. Paris
'
'
Application.Goto Reference:="PRICEDETOPTS"
ActiveWindow.LargeScroll Down:=1
ActiveWindow.LargeScroll Down:=1
Application.Goto Reference:="PRICEDETOPTS"
End Sub