Getting "Unable to set the bold property of the font class" error

[PoggiPJ]

I am suddenly getting the same error on my own Excel 2003 code, which has been unchanged and working for the past 2 years now.

• I am also getting the "Not enough system resources to display completely" message just prior, but I am not certain that it is related.
• This particular user also makes extensive use of fonts and colors throughout the workbook, and I don't know if we are hitting some internal limitation.
• If I comment out the offending (red) statement, it will fail on a following font setting statement, such as "size".

    'Activate the Schedule A sheet
        Sched_A.Activate
        Sched_A.Unprotect Password:=DMSS.PW
        Sched_A.UsedRange.Clear
    
    'Check to see if the user has opted to display Schedule A
        If Configuration.Range("cfgWrkshtSchedA") Then
        Else
            Configuration.Range("cfgWrkshtSchedA") = True
        End If

    'Build the Customer name
        ActiveSheet.Cells(3, 4).Select
        Selection.Formula = "='Customer Data'!$B$2"
        [COLOR=Red][B]Selection.Font.Bold = False[/B][/COLOR]
        Selection.Font.Size = 18

Anyone have any suggestions?

 

[MrKowz]

Try eliminating as many "select" and "Selection"s as possible:

        With Sched_A
            .Unprotect Password:=DMSS.PW
            .UsedRange.Clear
    
    'Check to see if the user has opted to display Schedule A
            If Configuration.Range("cfgWrkshtSchedA") Then
            Else
                Configuration.Range("cfgWrkshtSchedA") = True
            End If
    'Build the Customer name
            With .Cells(3, 4)
                .Formula = "='Customer Data'!$B$2"
                .Font.Bold = False
                .Font.Size = 18
            End With
        End With