Macro for to activate Hyperlink

[Xr8y]

I've created a simple macro to open a hyperlink... but if there is no hyperlink in the cell, I want an error message to pop up saying "Please select a hyperlink"

Any help appreciated!


Sub OpenHyperlink()
'
' OpenHyperlink Macro
'
' Keyboard Shortcut: Ctrl+q
'
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

 

[Ron Coderre]

Try something like this:

Sub OpenHyperlink()
' Keyboard Shortcut: Ctrl+q
'
Dim cCell as Range
Set cCell = Selection.Cells(1,1)

If cCell.Hyperlinks.Count > 0 Then
    cCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Else
    MsgBox "Please select a hyperlink"
End If
End Sub

Does that help?

 

[AlphaFrog]

Sub OpenHyperlink()
    '
    ' OpenHyperlink Macro
    '
    ' Keyboard Shortcut: Ctrl+q
    '
    If ActiveCell.Hyperlinks.Count Then
        ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Else
        MsgBox "Please select a hyperlink.", vbCritical, "Not a Hyperlink"
    End If
End Sub

 

[pedie]

[/FONT]
[FONT=Courier New]Sub try()[/FONT]
[FONT=Courier New]If ActiveCell.Hyperlinks.Count = 0 Then
     MsgBox "Please select hyperlink"
    Else
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    End If
End Sub

 

[Xr8y]

Thanks!! works like a charm