Hyperlink macro for personal.xls
Hi Al007,
Try:
'=============
Public Hyperlinkcell()
Dim actual As Range
Set actual = Application. _
InputBox(Prompt:="Select cell to hyperlink.", _
Type:=8)
'
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:=actual.Address(0, 0)
End Sub
'<<=============
---
Regards,
Norman
"al007" wrote in message
ups.com...
Sub Hyperlinkcell()
'
Dim actual As Range
Set actual = Application.InputBox(Prompt:="Select cell to
hyperlink.", Type:=8)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:=actual, TextToDisplay:=ActiveCell.Value
End Sub
Can anybody fix the above hyperlink macro pls.
Thxs
|