Thursday, 11 August 2011

VBA Excel Macro for Hyperlinking first column

Use this macro in an excel 2010 spreadsheet to turn the first column of a table into hyperlinks, using the text of the table as a hyperlink.

Sub CreateLinks()
' CreateLinks Macro
' Keyboard Shortcut: Ctrl+R
    Dim i As Integer

    'Starting on row 2 because I have a header.
    'move to the final cell in the first column
    Do Until ActiveCell.Row = 1
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
           ActiveCell.Text, TextToDisplay:= _
           ActiveCell.Text, ScreenTip:= _
           "Click here to open Person record in Beacon"
        Range("A" & ActiveCell.Row - 1).Select
End Sub

No comments:

Post a Comment

How to replace the watch battery in Logitech K750 solar power keyboard

Buy this battery Open the battery cover on the back of the keyboard, you’ll need...