Sum Values from multiple sheets based on Summary Sheet Value

[wjmay1961]

I was hoping someone could help with this code, is it possible to modify the "ArgList" to include sheet names that are represented by a number which is at least 6 characters? I want to include all newly added sheets even though I'm not sure how many might be added.

Option Explicit

Function SUMIF3D( _
CritRng As Range, _
Crit As Variant, _
SumRng As Range, _
ParamArray ArgList() As Variant)

Dim Arg As Variant
Dim wkb As Workbook

Application.Volatile

If IsMissing(ArgList) Then
SUMIF3D = CVErr(xlErrValue)
Exit Function
End If

Set wkb = Application.Caller.Parent.Parent

For Each Arg In ArgList
SUMIF3D = SUMIF3D + _
WorksheetFunction.SumIf(wkb.Sheets(Arg).Range(CritRng.Address), _
Crit, wkb.Sheets(Arg).Range(SumRng.Address))
Next Arg

End Function