Option Base 1
Option Explicit
'Option Private Module
'==================================================================================================
Function Get_AGA(rng As Range, sFind$, Optional CaseIgnore As Boolean) As Long
Dim x, arr, s$, a&, i&, comp&

    If CaseIgnore Then comp = 1

    For a = 1 To rng.Areas.Count
        arr = rng.Areas(a).Value2
        If Not IsArray(arr) Then arr = Array(arr)
        
        For Each x In arr
            s = x

            Do
                i = InStr(i + 1, s, sFind, comp)
                If (i = 0) Then Exit Do
                Get_AGA = Get_AGA + 1
            Loop
        Next x
    Next a

End Function
'==================================================================================================
Function Get_AGA_RE(rng As Range, sFind$, Optional CaseIgnore As Boolean) As Long
Dim x, arr, a&
Static st&, RE As RegExp, REci As RegExp

    If (st = 0) Then
        st = 1
        Set RE = New RegExp:   RE.Global = True:   RE.Pattern = "(?=(" & sFind & "))"
        Set REci = New RegExp: REci.Global = True: REci.Pattern = "(?=(" & sFind & "))": REci.IgnoreCase = True
    End If

    For a = 1 To rng.Areas.Count
        arr = rng.Areas(a).Value2
        If Not IsArray(arr) Then arr = Array(arr)
        
        For Each x In arr
            Select Case CaseIgnore
                Case True: If REci.Test(x) Then Get_AGA_RE = Get_AGA_RE + REci.Execute(x).Count
                Case Else: If RE.Test(x) Then Get_AGA_RE = Get_AGA_RE + RE.Execute(x).Count
            End Select
        Next x
    Next a

End Function
'==================================================================================================
'==================================================================================================
Private Sub Test()
'    Debug.Print Get_AGA([a1:a3], "AGA")
    Debug.Print Get_AGA_RE([a1:a3], "aga", True)
End Sub
'==================================================================================================