I need help with getting the hyperlink address from Column A and making a text value in Column C
[VBA]Option Explicit
Sub findALink()
Dim strcell As String
Dim i As Long
Dim iLastRow As Long
With ActiveSheet
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
strcell = "C" + Trim(Str(i))
If Range(strcell).Value = "" Then
.Cells(i, "C").Value = .Cells(i, "A").Hyperlinks.Address
End If
Next i
End With
End Sub[/VBA]
Thanks