how to open hyperlinks for only visible rows

[biznez1]

Hello all, new here and first thing i like to say is that this is a great forum. Currently i am using below code, however, it opens all the hyperlinks in column 'A'. I want something that will open only visible row. Some rows are hidden and i don't want the links to open. Thank you for your help.

Sub Open_Hyperlinks()
Dim i, LastRow
LastRow = Range("E" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, "E").Hyperlinks.Count > 0 Then
Cells(i, "E").Hyperlinks(1).Follow
End If
Next
End Sub