Sub OpenLinks()
    Dim Cell As Range

    Set LinkRng = Range("E:E").EntireColumn.Resize(Rows.Count - 1).Offset(1)

    On Error Resume Next
    For Each Cell In LinkRng.Cells
        If Cell.Hyperlinks.Count >= 1 Then
            Cell.Hyperlinks(1).Follow
        Else
            If InStr(Cell.Value, ".") Then
                If InStr(Cell.Value, "://") Then
                    ThisWorkbook.FollowHyperlink (Cell.Value)
                Else
                    ThisWorkbook.FollowHyperlink ("http://" & Cell.Value)
                End If
            End If
        End If

    Next
    On Error GoTo 0
End Sub