Hyperlink macro for personal.xls

[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

[Norman Jones]

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" <transferxxx@gmail.com> wrote in message
news:1134041437.581886.78060@g44g2000cwa.googlegroups.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
>

[al007]

Thxs - but it does not work if a cell from a different sheet is
selected - can you help pls

[Tom Ogilvy]

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.Parent.Name & _
"'!" & actual.Address(0, 0), _
TextToDisplay:=actual.Text
End Sub


--
Regards,
Tom Ogilvy


"al007" <transferxxx@gmail.com> wrote in message
news:1134041437.581886.78060@g44g2000cwa.googlegroups.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
>

[Tom Ogilvy]

Here is a slight revision

Sub Hyperlinkcell()
'
Dim actual As Range
Dim Act_Cell as Range
set Act_Cell = ActiveCell
Set actual = Application.InputBox( _
Prompt:="Select cell to hyperlink.", Type:=8)
ActiveSheet.Hyperlinks.Add _
Anchor:=Act_Cell, _
Address:="", _
SubAddress:="'" & actual.Parent.Name & _
"'!" & actual.Address(0, 0), _
TextToDisplay:=actual.Parent.Name & _
"!" & actual.Address(0, 0)
End Sub

--
Regards,
Tom Ogilvy


"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:e7Dljb$%23FHA.2392@TK2MSFTNGP09.phx.gbl...
> 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.Parent.Name & _
> "'!" & actual.Address(0, 0), _
> TextToDisplay:=actual.Text
> End Sub
>
>
> --
> Regards,
> Tom Ogilvy
>
>
> "al007" <transferxxx@gmail.com> wrote in message
> news:1134041437.581886.78060@g44g2000cwa.googlegroups.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
> >
>
>

[al007]

Thxs tom,
Your code is working great & am using it for empty cells & using
SubAddress:=activecell.value for non empty cells with an if statement
cheers!!!



Tom Ogilvy wrote:
> Here is a slight revision
>
> Sub Hyperlinkcell()
> '
> Dim actual As Range
> Dim Act_Cell as Range
> set Act_Cell = ActiveCell
> Set actual = Application.InputBox( _
> Prompt:="Select cell to hyperlink.", Type:=8)
> ActiveSheet.Hyperlinks.Add _
> Anchor:=Act_Cell, _
> Address:="", _
> SubAddress:="'" & actual.Parent.Name & _
> "'!" & actual.Address(0, 0), _
> TextToDisplay:=actual.Parent.Name & _
> "!" & actual.Address(0, 0)
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Tom Ogilvy" <twogilvy@msn.com> wrote in message
> news:e7Dljb$%23FHA.2392@TK2MSFTNGP09.phx.gbl...
> > 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.Parent.Name & _
> > "'!" & actual.Address(0, 0), _
> > TextToDisplay:=actual.Text
> > End Sub
> >
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> > "al007" <transferxxx@gmail.com> wrote in message
> > news:1134041437.581886.78060@g44g2000cwa.googlegroups.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
> > >
> >
> >