Sum formulas and none formulas

Hi Nighteg..

try this..

Sub Deb()
    Dim c As Range, s As String
    On Error Resume Next
    For Each c In Range("A4:A9")
        s = c.Hyperlinks(1).SubAddress
            If Err = 0 Then
                HSUM = HSUM + c.Offset(, 1)
            Else
                nhsum = nhsum + c.Offset(, 1)
            End If
        Err.Clear
    Next
    MsgBox "SUM OF Hypelink :" & HSUM & Chr(10) & "Sum Of NonHyperlink :" & nhsum
End Sub

In the meanwhile.. trying to figure out if possible through FORMULA, or NamedRange or Get.CELL..