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