VBA to remove strikethrough

[RedOctoberKnight]

Good Morning,

I'm sure this will be quick and easy for someone...

I have a shared workbook with coworkers. One of them feels the need to constantly add strikethrough to all the text which is very annoying and unnecessary.

I was wondering if someone could help me with a VBA code that would basically undo his strikethrough anytime there is a change to the workbook? Call it an instant undo button anytime they click a new cell.

Any help would be much appreciated.

Thanks,

 

[nemmi69]

In the sheet code you need to control add

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Target.Font

        .Strikethrough = False

    End With

End Sub

 

[RedOctoberKnight]

Perfect! Thank you!

 

[nemmi69]

No problem!