macro help

[imck]

i need a macro to run in excel that will put a boldish border round a group of cells then merge a group of cells to make a lined page for notes
can anyone help me

[peet]

use the macro recorder ?

Sub Test()
'
' Test Macro
' Macro recorded 17.09.2002 by peet
'
 
'
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Range("D11:F15").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = True
    End With
End Sub

just a suggestion...

[imck]

thanks for the coding
it has given me a blank page

the range i am using is

e to k
cell range 7 to 1400

[imck]

the effect i am looking for is that of a lined book if possible