Border Line for filled cell in Excel VBA

Once a time I was trying to create a report on excel through MS ACCESS vba. At that time I was really wanted to keep the border for all filled cells. I got a user define function from a browsing web page and it was really helpful.  You can modify this function according to your requirement.

Sub TheBorderLine()

With ActiveSheet.UsedRange.Borders

        .LineStyle =xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

 End With

    With ActiveSheet

        .Cells.Font.Size ="10"    

ActiveSheet.Cells.HorizontalAlignment = xlLeft

          End With

        Range("A1:S1").Select

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

    End With

  End Sub

Execution Process :
Call this function inside your button just like a - call TheBorderLine or just put TheBorderLine.
Make sure that your workbook is open while calling this function.