Extracting hyperlink address in column of interest

[Deepk]

I am trying to extract hyperlink address from one column to a column of interest via inputbox. Find below my code

Sub ExtractHL()
Dim HL As Hyperlink
Dim alpha As Integer
Dim beta As Integer


On Error GoTo ErrHandling


alpha = InputBox("Column number to paste hyperlink addresses", "Your Input Required")
beta = ActiveCell.Row


For Each HL In Selection.Hyperlinks


Cells(beta, alpha).Value = HL.Address


beta = beta + 1


Next HL
MsgBox "Process Completed Successfully."
End Sub

It is showing error at the red colored code. Please suggest the correction. Thank you.

 

[Roderick_E]

Where is the selection actually happening? Your FOR statement is looping through a selection that is not mentioned in this code.
How about instead

lastrow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
hypcol = 5 'or whereever your hyperlinks are stored
For X = beta to lastrow
If Cells(x, hypcol).Hyperlinks.Count > 0 Then
cells(x, alpha).value = cells(x,hypcol).Hyperlinks(1).SubAddress
endif
next x