Mike,
Are you sure about... hypadr = hyp.Address ?
Jim Cone


"Mike Fogleman" wrote in message
...
Not quite Jim, but I got it....

Sub UpdateUsage()
Dim hyp As Hyperlink
Dim hypadr As String
Dim hyprng As Range

For Each hyp In ActiveSheet.Range("K:K").Hyperlinks
hypadr = hyp.Address
Set hyprng = hyp.Range


Mike F
"Jim Cone" wrote in message
...
Mike,

hypadr = hyp.Range.Address
ActiveSheet.Range(hypadr).Offset(0, 7).Value =...
ought to do it.

Regards,
Jim Cone
San Francisco, USA