Setting the bold text for Activecell - Used Range - Selection

Sub Bold()

    Selection.Font.Bold = True ' Making the slection Bold
  
  
    ActiveCell.Font.Bold = True 'Activecell Bold
    
    ActiveSheet.UsedRange.Font.Bold = True ' Setting the used range as Bold
  
End Sub