This is what code i have so far, I'm looking to find only underlined and/or bold cells in column D

Sub finder()
    Sheets("backup").Select
   
    With Application.FindFormat.Font.Underline = True
   
    ActiveSheet.Column("D").Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=True).Activate
   
    End With
   
End Sub

I know its not complete, but i was just getting started with it to see if i could get the idea to work.

the code above returns an error message saying "object doesn't support this property or method"

if anyone has used this or knows what I'm doing wrong, it would be an amazing help.

Thanks