Sub HLSCREENTIP()
Dim hl As Hyperlink
Dim rng As Range
Dim hlTip As String
'// Refine range if needed
Set rng = Sheets("Sheet1").UsedRange
'// To apply to the active sheet
'// Set rng = ActiveSheet.UsedRange
'// Tip to replace current tips
hlTip = "Press to open hyperlink"
For Each hl In rng.Hyperlinks
hl.ScreenTip = hlTip
Next hl
End Sub