If Question

[Greg B]

I am trying to make a macro where it is connected to a listbox. I have a
problem of if a blank cell of the listbox is hit by accident it comes up
with the debug error. I am trying to get around this by writing a "IF" code
but am a little stuck.

I have this at the moment

ActiveSheet.Range("A1").Offset(ListBox1.ListIndex).Select
If ActiveCell = "" Then
MsgBox ("idiot")
End If

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

How do I only get it to go to the hyperlink section of the code only if the
cell it chooses has text in it to fire the
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
part of the code

Any help would be great

Thanks
GReg

 

[Dave Peterson]

Maybe just checking for a hyperlink first...

if selection.hyperlinks.count > 0 then
selection.hyperlinks(1).follow ....etc
else
msgbox "no link"
end if

 

[Greg B]

Thank you Dave

Works Great
Greg

Maybe just checking for a hyperlink first...

if selection.hyperlinks.count > 0 then
selection.hyperlinks(1).follow ....etc
else
msgbox "no link"
end if