Excel Strike Through

Sometimes people only format parts of text. For these cases, you may use following code.

Public Function HasStrike(pr As Range) As Boolean
    Dim rv As Boolean
    Dim istr As Integer
    On Error Resume Next
    rv = pr.Font.Strikethrough
    For istr = 1 To Len(pr.Text)
        rv = rv Or pr.Characters(istr, 1).Font.Strikethrough
    Next istr
    HasStrike = rv
End Function

Select allOpen in new window

Thanks!  How do I tell that it wasn't in a module??

How do I tell that it wasn't in a module??

well, you can double click the Macro codes from your Project Explorer, and do a search (in Current Module)...

Thanks!!