Need macro - to open multiple hyperlinks

Need macro - to open multiple hyperlinks

I'm way over my head with this but I'm looking for a macro that would open in new tabs a list of 8 links stored in contiguous cells


Something similar to :
  1. Public Sub OpenURLList()

    Dim rowcount As Integer
    Dim urlToOpen As String

    Set ff= CreateObject("FireFox.Application")
    'Show browser
    ff.Visible = True
    rowcount = 1
    Do While Sheets("Sheet1").Range("A" & rowcount) <> ""

    urlToOpen = Sheets("Sheet1").Range("A" & rowcount).Value
    'Open the links in the same browser
    ff.Navigate2 urlToOpen
    'Perform your events here
    MsgBox urlToOpen & " is open. Check your browser"
    rowcount = rowcount + 1

    Loop

    'Close Browser
    ff.Quit