Update Code to look for "http" rather than all populated cells

[CatLadee]

Thanks for looking at this. How can I revise the highlighted line below so that instead of changing all cells in row 3 to a link if it is has a value in it, that instead it changes it to a link if it includes "http"? Currently it is updating the column header and "mailto:" email addresses to links and I don't want that. However, I need this converter in order to run the link-check code that will follow it. Thanks so much! - CatLadee




Sub Test()
Dim LastRow As Long, i As Long
LastRow = Sheets("owssvr").Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To LastRow
With Cells(i, 3)
If .Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(1, 1), Address:=.Value
End If
End With
Next i
End Sub

 

[mrshl9898]

Try this:

Sub Test()Dim LastRow As Long, i As Long, myval As Long
LastRow = Sheets("owssvr").Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To LastRow
myval = InStr(Cells(i, 3).Value, "http")
With Cells(i, 3)
If .Value <> "" And myval <> 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(1, 1), Address:=.Value
End If
End With
Next i
End Sub

 

[CatLadee]

That's exactly what I was looking for. You have made my morning. I appreciate your help very much! Have a nice week