Add Colour Block or Change text

[Bearboy]

Hi
It is possible to create some formatting that if an entire row is selected and the font is change to Italics the row then gets a block colour added.
Or it can be if the block colour is added to the row the font is changed to italics.
Either way just want to cut out one step if possible.
Thanks

 

[tonyyy]

What if you had a toggle switch that would change the font and color of your selected range?

Sub toggleformat()
Dim r As Range
Set r = Selection
If r.Font.Italic <> True Then
    r.Rows.EntireRow.Font.Italic = True
    With r.Rows.EntireRow.Interior
        .Pattern = xlSolid
        .Color = 65535
    End With
Else
    r.Rows.EntireRow.Font.Italic = False
    With r.Rows.EntireRow.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If
End Sub

For example, if you select a single cell, the above macro will change the entire row to italic and yellow. Run the macro again and it will remove the italics and color. You can also select multiple cells or a range of cells and the macro will act accordingly.

Cheers,

Tony