A
al007
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
'
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