Monday, 7 January 2013

How to Convert Cell Values To Hyper Links using Excel VBA Macro

Excel VBA Macro to Convert Cell Values To Hyper Links
The Following Macro Will Convert the Cell Values of Range ['A1:A100'] to Hyperlinks

Sub Convert_To_Hyperlinks()

Dim x As Integer
For x = 1 To 100

If Cells(x, 1) <> "" Then Cells(x, 1).Select

ActiveSheet.Hyperlinks.ADD Anchor:=Selection, _
Address:=Cells(x, 1).value, TextToDisplay:=Cells(x, 1).value
'Adress:="www.google.com",TextToDisplay:="Google"

End If

Next x

End Sub

Th@nks..
Tamatam
    

No comments:

Post a Comment

Follow Me by Email

ExcelKingdom-Popular Posts

ExcelKingdom-Random Posts