Sub ColourToggle() ' Paul Beverley - Version 05.05.10 ' Red text on/off ' F11 nowColour = Selection.Font.Color ' If it's red or a mix of red and black, switch to black If nowColour = wdColorRed Or nowColour > 100 Then Selection.Font.Color = wdColorAutomatic Else Selection.Font.Color = wdColorRed End If End Sub