My Toggle Button to hide rows causes my VBA code cells to #VALUE error

I've just discovered Toggle Buttons and have input a number to hide and unhide various sections of my sheet when they're not in use.

Within each hidden section I'm using a VBA code to sum bold and sum italics, and at the bottom of the page have an equation to add those cells together to give me the total for the whole sheet.

When I hide a section the VBA code to sum bold/italic gives a #VALUE error, also giving the additions cell at the bottom the same. If I click on the errored sum bold/italic cell's equation and press enter it goes back to normal, but obviously if the cell is hidden I'm unable to do this.

Manually hiding the cells doesn't cause the same issue, only using the button. Is there something I can add in to stop this from happening?

I know I can change my additions cell to use the VBA code for each section, but if there's a loop around to just fix the error from coming up that would be easier.

For reference this is my button code format:

Private Sub Hide1_Click()
Dim xAddress As String
xAddress = "7:14"
If Hide1.Value Then
    Application.ActiveSheet.Rows(xAddress).Hidden = False
Else
    Application.ActiveSheet.Rows(xAddress).Hidden = True
End If
End Sub

And this is my sum bold format

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

Thank you!

I did some back and forth with ChatGPT and found a solution to the problem.
The range was only numeric cells so that wasn't the issue, and it didn't pose a problem when manually hiding cells so the toggle button was the issue.

This amendment to the toggle buttons fixed it.

<!-- begin snippet: js hide: false console: true babel: false -->

<!-- language: lang-html -->

Private Sub Hide1_Click()
    Dim xAddress As String
    xAddress = "7:14"
    
    If Hide1.Value Then
        Application.ActiveSheet.Rows(xAddress).Hidden = False
    Else
        Application.ActiveSheet.Rows(xAddress).Hidden = True
    End If
    
    Application.ScreenUpdating = False ' Disable screen updating
    
    ' Recalculate formulas
    Application.CalculateFullRebuild
    Application.ScreenUpdating = True ' Enable screen updating
    
End Sub

<!-- end snippet -->

The problem lies in some values, which are not numeric. The corrected Function below will reveal the non-numeric values to you in the Immediate window

Option Explicit

Function SumBold(WorkRng As Range) As Double
   ' Update 20220516
   Dim Rng As Range
   Dim xSum As Double
   For Each Rng In WorkRng
      If Rng.Font.Bold Then
         If IsNumeric(Rng.Value2) Then
            xSum = xSum + Rng.value
         Else
            Debug.Print "Cell " & Rng.Address(0, 0) & " is not numeric!"
         End If
      End If
   Next
   SumBold = xSum
End Function