Sub ApplyBordersAndBold(sheetName,Rng)

'Sheet on which you need to perform the opertaions
Sheets(sheetName).Activate

'Apply range of cells borders
ActiveSheet.Range(Rng).Borders.LineStyle = xlContinuous

'Make range of cells bold text
ActiveSheet.Range(Rng).Font.Bold = True

End Sub