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