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

Android mediaserver process killing battery life

If this happens to you, then do the following Force stop on Settings, Applications, All, Media Storage. Clear Cache and Clear Data, fo...