Excel VisualBasic Script

Private Sub Worksheet_BeforeDoubleClick _
    (ByVal Target As Excel.Range, Cancel As Boolean)
    Target.Font.Bold = Not Target.Font.Bold
    Cancel = True
End Sub