Locate Numbers 26 and higher

Which part of the supplied suggestion are you referring to?
Have you tried the code? It is "hard coded"

An explanation might help.

 'The three ranges that need checking
a = Array("D3:D12", "F3:F12", "H3:H12")

 'The row number where the first cell address will be pasted into
j = 3

 'Loop through the previously mentioned ranges, from the first to the last
    For i = LBound(a) To UBound(a)

 ' Loop through each cell in the range that is being checked
        For Each c In Range(a(i))

 ' If there is something in that cell
            If Not IsEmpty(c) Then

 'Split the value into parts separated at the hyphen = - sign and use the 2nd part for comparison
                If Split(c, "-")(1) > 25 Then

 'Put the address of that cell in cell B3 if the value is > 25 and increase the row number by 1 for the next time it finds what it is looking for
                    Cells(j, 2) = c.Address(0, 0): j = j + 1

                End If
            End If

 ' go to the next cell for comparing values
        Next c

 'go to the next range to check
    Next i