"^SUM(" , "/SUM(", "*SUM(" 

=СУММПРОИЗВ((МЕСЯЦ(A2:A400)=1)*(C2:C400="usd")*B2:B400)
 

Sub test()
Dim c As Range, sh As Worksheet, rRange As Range
For Each sh In ThisWorkbook.Worksheets
On Error Resume Next
Set rRange = sh.Cells.SpecialCells(xlCellTypeFormulas, 23)
    If Err.Number = 0 Then
        For Each c In rRange
            If c.HasFormula Then
                If InStr(1, c.Formula, "SUM")<> 0 Then c.Value = c.Value
            End If
        Next
    Else
        Err.Clear
    End If
Set rRange = Nothing
Next
End Sub