Runtime error 1004 unable to set the bold property of the font class

[Pookiemeister]

Not shown: s is declared as a string and fr1 is declared as range

s = ""
        If TypeName(ctrl) = "Frame" Then
            For Each cf In ctrl.Controls
                If "CheckBoxOptionButton" Like "*" & TypeName(cf) & "*" Then If cf.Value Then s = s & cf.Caption & ", "
            Next
            Select Case ctrl.Name
                Case Is = "frmTask"
                    s = Left(s, Len(s) - 2) & ":"
                    Cells(lLastRow, 9) = s
                    Set fr1 = Cells(lLastRow, "I").Find(s)
                    With fr1
                        .Characters(1, Len(s)).Font.Bold = True
                    End With
'

The error message is associated with this line of code:

 .Characters(1, Len(s)).Font.Bold = True

I'm not sure what I'm doing wrong. I followed the

Range.Characters property (Excel)

Office VBA reference topic

docs.microsoft.com

syntax shown.
If you have any questions comments or concerns, please let me know. Thank you in advance.

 

[RoryA]

Is the sheet protected?

 

[Pookiemeister]

Aw...man. i forgot about that. Yes it is.