Determing if a Hyperlink Exists

[mj0lnr]

All,

This one might be fairly simple (of course if that was simple, I'd have figured it out by now) but, what I'd like to accomplish is the following:

• 1)Comb thru a column (H) and check if a hyperlink exists
  2)If YES, leaves it alone
  3)If NOT, selects the cell and checks the rest of the H column for the same condition
  4)Selects all cells WITHOUT a hyperlink
  5)Determines 1st cell without a hyperlink

Many Thanks in advance,
A.

 

[NateO]

Parry's loop? It will start with the first cell. Otherwise, use activecell.

 

[mj0lnr]

Gotcha!!!! all you guys rock!!!

thank you so much....!
A.

 

[NateO]

You are welcome.

sub kdsfkjhdsjk()
Dim cl As Range, y As String
On Error Resume Next 
For Each cl In Range([h23], [h65536].End(3)) 
    y = cl.Hyperlinks(1).Name 
    If Err.Number <> 0 Then
       if isnumeric(cl) then 
        cl.Hyperlinks.Add Anchor:=cl, _ 
          Address:="http://IM/Peregrine/WhatsMyStatus/" & _
            default.asp?ProbID=IM" & cl & _
            "&submit1=Get+Ticket+Information&SearchName=" 
         cl.value = cstr(cl)
       end if
       Err.Clear 
    End If 
Next
end sub

 

[mj0lnr]

Nate....I'm not worthy! Thank you! ray:

& thank you Brett.....all you "Excelperts" flat out rock!