Change code to ActiveSheet

Hi friends,

I got a code from http://www.vbaexpress.com/forum/arch...p/t-13260.html website

this code applying for all sheets in a workbook. I want to apply only active worksheet. Please change code as Active Sheet mode

And Line going to across sheet. Can we control that line in a range, like I have a data in Range A1:K114, So will come A to K column only.

Sub BottomLine()
Dim ws As Worksheet
Dim pb As HPageBreak
Dim LastRow As Long


For Each ws In ThisWorkbook.Worksheets
ActiveWindow.View = xlPageBreakPreview

For Each pb In ws.HPageBreaks
LastRow = pb.Location.Offset(-1, 0).Row
Firstrow = pb.Location.Offset(0, 0).Row

With ws.Rows(LastRow).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With

With ws.Rows(Firstrow).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With

Next pb
Next ws

End Sub

Try this.

Sub BottomLine()
Dim ws As Worksheet
Dim pb As HPageBreak
Dim LastRow As Long

    Set ws = ActiveSheet
    ActiveWindow.View = xlPageBreakPreview

    For Each pb In ws.HPageBreaks
        LastRow = pb.Location.Offset(-1, 0).Row
        Firstrow = pb.Location.Offset(0, 0).Row

        With ws.Rows(LastRow).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
         End With

        With ws.Rows(Firstrow).Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With

    Next pb


End Sub