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


"Mike Fogleman" wrote in message
...
As I loop thru Hyperlinks, I need a reference to the active Hyperlink so I
can put a value in a cell Offset(0,7). See the first line following the
query
Option Explicit
Sub UpdateUsage()
Dim hyp As Hyperlink
Dim hypadr As String

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

With Worksheets("Update").QueryTables.Add(Connection:=" URL;" & hypadr _
, Destination:=Range("A1"))
.name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With

ActiveSheet.CurrentHyperlink.Offset(0, 7).Value = _
Worksheets("Update").Range("C7").Value ==this is not right

With Worksheets("Update")
'do some other stuff
.Rows("1:7").Delete shift:=xlUp
End With
Next hyp
End Sub

Mike F