Monday, January 7, 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

Hi User, Thank You for visiting My Blog. Please post your genuine Feedback or comments only related to this Blog Posts. Please do not post any Spam comments or Advertising kind of comments which will be Ignored.