Sub pullpath()
'
' pullpath Macro
' Macro recorded 6/10/2004 by jkt
'
' Keyboard Shortcut: Ctrl+m (You must set Ctrl+m to this macro if not already set)
'
' This is a dumb macro with no error protection. It extracts the URL from the cell
' and places the URL as text in the adjacent left cell, which should be empty to
' receive the URL.
'
' The idea is to use Excel's edit facilities to make mass changes to URLs if you
' change the location of the decrypt images.
'
    ActiveCell.Offset(rowOffset:=0, columnOffset:=-1) = Selection.Hyperlinks(1).Address
    ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
End Sub


Sub putpath()
'
' putpath Macro
' Macro recorded 8/5/2003 by John K. Taber
'
' Keyboard Shortcut: Ctrl+k (You must assign Ctrl+k to this macro if not already set)
' Convert text filename to hyperlink
'
' This is a dumb macro that does no error checking. It assigns the text in the adjacent
' left cell to the current cell as a URL. This macro is the complement to pullpath.
' The idea is, extract the paths with Ctrl+m, change them with Excel edit facilities,
' then assign the new URLs to the images with Ctrl+k.
'
    ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:= _
        ActiveCell.Offset(rowOffset:=0, columnOffset:=-1).Value
    ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
End Sub