Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Toggles between normal, bold, italic and bold+italic

Sub ItalicBold()   Dim bld As Variant, ital As Variant   If Selection Is Nothing Then Exit Sub   bld = Selection.Font.Bold: ital = Selection.Font.Italic   If Not bld And Not ital Then     bld = True   ElseIf bld And Not ital Then     ital = True: bld = False   ElseIf Not bld And ital Then     bld = True   Else     bld = False: ital = False   End If   Selection.Font.Bold = bld: Selection.Font.Italic = ital End Sub