Excel VisualBasic Script

Sub FormatCurrentRegion()
    Set WorkRange = ActiveCell.CurrentRegion
    WorkRange.Font.Bold = True
End Sub