Macro

jeg har lavet denne macro men hvis jeg klikker på den med musen for jeg fejl hvordan kan det ændres

Sub stor()
'
' stor Makro
' Makro indspillet 31-03-2009 af PL057
'
' Genvejstast:Ctrl+s
'
 

    Selection.ShapeRange.ScaleHeight 1#, msoTrue, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleWidth 1#, msoTrue, msoScaleFromTopLeft
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.SmallScroll ToRight:=6
End Sub
Sub lille()
'
' lille Makro
' Makro indspillet 31-03-2009 af PL057
'
' Genvejstast:Ctrl+l
'
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 180#
    Selection.ShapeRange.Width = 250#
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-18
End Sub