Problems highlighted in Red.

Public Function Disney_Stamp_Listings_2022 (pRange1 as Range, pRange2 as Range) As Double

Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
If rng.Font.Color = p2Range.Font.Color Then
xTotal = xTotal + rng.Value
End If
Next
Disney_Stamp_Listings_2022 = xTotal
End Function