How do I remove Underline from whole worksheet?

Question

I would like to remove all Underline in my worksheet and I would like to use a macro for this.

I could only find this code, which adds Underline.

Worksheets("Sheet1").Activate 
ActiveCell.Font.Underline = xlUnderlineStyleSingle

Answer 1

Like this:

ActiveWorkbook.Worksheets("Sheet1").UsedRange.Font.Underline = False