Try this


Sub deletescreentip()
Dim cell As Range

On Error Resume Next


For Each cell In Range("a1:a10") ' change your range

cell.Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= ActiveCell.Value,
ScreenTip:="", TextToDisplay:=ActiveCell.Value

Next cell


End Sub

Cesar Zapata
"David W" wrote in message
...
Does anyone know how to hide the comment box on a hyperlink