Здраствуйте!
Подскажите как сделать чтобы данный макрос сохранился в екселе а не вводить его постоянно для того чтобы выполнить. При открытии нового файла макроса нету.

Sub Borgn()
'
' Borgn Макрос
' Макрос записан 18.04.2006 (in_ur)
'
' Сочетание клавиш: Ctrl+b
'
Columns("A:D").Select
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll ToRight:=4
Range("A:D,K:K,M:M,O:O,Q:Q").Select
Range("Q1").Activate
ActiveWindow.SmallScroll ToRight:=10
Range("A:D,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y,AA:AA").Select
Range("AA1").Activate
ActiveWindow.SmallScroll ToRight:=12
Range("A:D,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y,AA:AA,AC:AC").Select
Range("AC1").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.ScrollColumn = 1
ActiveWindow.Zoom = 75
Rows("3:6").Select
Range("E3").Activate
Selection.EntireRow.Hidden = True
Range("AE7").Select
ActiveWindow.FreezePanes = True
Rows("2:2").Select
Range("E2").Activate
Selection.AutoFilter
Range("V2").Select
Selection.AutoFilter Field:=22, Criteria1:=">0", Operator:=xlAnd
Rows("7:700").Select
Range("E7").Activate
Selection.RowHeight = 14.5
Range("P7").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments

.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Range("J27").Select
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.Zoom = 75
Range("AB80").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AD$704"
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
End Sub


Спасибо.

Algol70,

Всёравно после открытия нового документа переведущий макрос изчезает.
Документ ексель экспортируеться из базы данных, потом после нажатия клавиш CTRL+B должен выполняться выше указанный макрос.

Algol70,
Данные которые импортируються из базы через некоторое время изменяються, после очередного просмотра документа его мы не сохраняем а просто печатаем один раз и закрываем. Потом опять открываем и нужно что бы как то этот макрос в самом екселе был сохранён, и при нажатии комбинацыи клавиш исполнялся макрос.

Neirfy,
Где это всё находиться?