Macro to add hyperlink for a list (Excel VBA)

We can use the below Excel Macro to add hyperlinks for a list. For example, we have a list of text to display and in next column a list of websites. This Macro will add the respective website as hyperlink.

So in our active sheet, in column 'A', we have some text which we want to be hyperlinked to website available in next column. Here in this Macro the list length is 6, which we can change as per our requirement.

Column A                            Column B

Tutorial on Excel	www.excel.com
Tutorial on SQL	www.sql.com
Tutorial on VBA	www.vba.com
Tutorial on Java	www.java.com
Tutorial on HTML	www.html.com
Tutorial on REGEX	www.regex.com

The data will look like this after running the Macro; the Column A is hyperlinked now.

Column A                            Column B

Tutorial on Excel	www.excel.com
Tutorial on SQL	www.sql.com
Tutorial on VBA	www.vba.com
Tutorial on Java	www.java.com
Tutorial on HTML	www.html.com
Tutorial on REGEX	www.regex.com

And below is the VBA Code/Macro

Sub Amiq()

With ActiveSheet

Dim counter As Integer

counter = 1

Do While counter <= 6

.Hyperlinks.Add Anchor:=.Cells(counter, "A"), _

 Address:=Cells(counter, "B").Value, _

 ScreenTip:="Web Site", _

 TextToDisplay:=Cells(counter, "A").Value

counter = counter + 1

 Loop

 End With

End Sub